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SECTION  1 


OVERVIEW 

1.1  INTRODUCTION 

This  report  summarizes  the  work  performed  during  the  first  year  of  a 
three  year  research  investigation  of  the  fundamental  behavior  of  multiphase 
porous  materials.  The  research  is  organized  into  two  parallel  efforts;  a 
laboratory  experimental  program  which  is  investigating  fundamental  properties 
of  multiphase  porous  media  and  a  theoretical  program  which  is  formulating 
advanced  multiphase  models  and  incorporating  these  into  numerical  algorithms 
to  be  used  in  studying  wave  propagation  phenomena  in  wet  geologies.  The 
experimental  program  supports  the  theoretical  work  by  determining  fundamental 
properties  and  relationships  neded  in  both  the  modeling  and  calculational  por¬ 
tions  of  that  program.  This  first  annual  report  summarizes  the  current  status 
of  both  efforts.  The  experimental  work  is  described  in  Sections  2  through  4 
and  the  theoretical  work  is  summarized  in  Sections  5  through  7. 

1.2  EXPERIMENTAL  PROGRAM 


Three  separate  laboratory  efforts  were  initiated  during  the  first  year; 
grain  compressibility,  shock  consolidation,  and  design  and  evaluation  of  a 
device  to  be  used  to  measure  fluid  friction  and  energy  dissipation. 

Section  2  describes  a  series  of  laboratory  tests  used  to  measure  the 
compressibility  of  various  rock  and  soil  grains  to  peak  pressures  of  about  5 
Kbars.  A  variety  of  materials  were  tested,  including  quartz  sand  and  car¬ 
bonate  soils  and  rocks.  The  carbonates  were  of  particular  interest  because 
the  individual  grains  contained  considerable  microporosity  which  might 
substantially  increase  the  compressibility  of  the  grains  and  substantially 
alter  the  behavior  of  the  bulk  satured  material.  The  carbonates  used  in  these 
investigations  were  from  nuclear  cratering  sites  at  Enewetak  Atoll  which  are 
currently  being  studied  by  the  Air  Force  and  the  Defense  Nuclear  Agency. 


Section  3  decribes  the  development  and  results  of  laboratory  tests  to 
simulate  dynamic  undrained  explosive  loadings  and  subsequent  liquefaction  and 
late-time  consolidation.  These  tests,  called  shock-consolidation  tests,  are 
used  to  evaluate  the  theoretical  modeling  of  the  liquefaction  process  and  to 
investigate  the  amount  of  volume  change  associated  with  post-liquefaction  con¬ 
solidation.  This  post-liquefaction  consolidation  results  in  subsidence  of  the 
ground  surface  surrounding  an  explosion  in  saturated  soil  and  is  thought  to  be 
a  major  cause  of  the  large  crater  volumes  measured  on  the  Pacific  nuclear  cra¬ 
ters.  The  magnitude  of  the  consolidation/subsidence  contribution  to  those 
crater  volumes  is  essential  to  the  understanding  of  cratering  mechanics  in 
other  geologies. 

An  important  aspect  of  our  three  year  program  is  the  experimental  charac¬ 
terization  of  fluid  friction  and  energy  dissipation  in  porous  media  under 
various  flow  conditions,  including  non-steady  state  and  turbulent  flow. 

Section  4  describes  the  design,  fabrication  and  evaluation  of  a  pressure 
vessel  to  be  used  in  the  measurement  of  these  parameters  during  the  coming 
year. 

1.3  THEORETICAL  PROGRAM 

A  frequent  problem  in  multiphase  modeling  is  the  determination  of  skele¬ 
ton  properties  from  undrained  test  data.  Because  of  the  difficulty  in  con¬ 
ducting  these  tests  and  extracting  reliable  skeleton  properties  from  the  test 
data,  it  is  often  preferable  to  directly  measure  the  ske-leton  properties 
using  drained  tests.  Section  5  describes  an  analytical  procedure  for  com¬ 
puting  the  undrained  response  of  fully  saturated  porous  materials  in  hydrosta¬ 
tic  and  uniaxial  compression  using  laboratory  skeleton  properties. 

The  development  of  advanced  multiphase  material  models  and  efficient  com¬ 
putational  algorithms  which  incorporate  these  models  is  being  pursued  in  two 
parallel  efforts.  The  first  effort,  described  in  Section  6,  provides  an 
updated  interim  means  of  performing  two-phase  calculations  in  support  of 
laboratory  and  field  programs.  Advances  in  material  modeling  and  calcula¬ 
tions!  algorithms  are  described  and  incorporated  into  our  advanced  two-phase 
code,  TPOAPI I . 


Section  7  describes  the  work  under  the  second  effort  involving  the  new 
theoretical  formulations  to  be  used  in  the  general  multiphase  code  MPDAP. 
These  new  formulations  include  4  major  advances;  incorporation  of  a  fully 
coupled  material  model,  development  of  the  three-phase  model  which  includes 
air,  a  new  fluid  friction  model  including  both  theoretical  and  empirical  for¬ 
mulations,  and  advances  in  numerical  algorithms  which  greatly  reduce  com¬ 
putational  times  and  storage  requirements. 


my. 


SECTION  2 


GRAIN  COMPRESSIBILITY 


2.1  INTRODUCTION 

The  compressibility  of  the  solid  grains  is  an  integral  part  of  the 
constitutive  formulations  for  multiphase  response  (e.g.  Blouin  and  Kim,  1984). 
The  compressibilities  of  the  mineral  constituents  such  as  quartz  and  calcium 
carbonate  making  up  most  of  the  soils  of  interest,  are  generally  available  in 
the  literature  from  sources  such  as  Bridgman  (1931)  and  Simmons  and  Wang 
(1971).  During  a  previous  study  Blouin  et  al.  (1984)  observed  that  the 
grains  of  the  carbonate  soils  from  Enewetak  Atoll  contained  a  high  degree  of 
microporosity  within  the  grains  themselves.  Figure  2.1  shows  a  microscopic 
view  of  typical  beach  sand  grains  in  which  the  micropores,  or  intragranu- 
lar  porosity,  are  easily  distinguished.  The  pervasiveness  of  these  micropores 
explains  why  the  in  situ  densities  of  the  carbonate  soils  and  rocks  are  so 
low.  A  porosity  value  of  50%  is  typical  of  both  the  uncemented  and  cemented 
sediments  at  Enewetak.  In  the  case  of  the  beach  sand,  perhaps  a  third  of  the 
bulk  porosity  is  due  to  the  intragranular  microporosity. 

If  the  micro  pore  space  in  the  carbonate  sediments  is  not  fully 
saturated,  resultant  undrained  compressibilities  will  be  much  greater  than 
those  predicted  using  the  solid  grain  compressibilities  from  the  literature. 

In  essence,  the  bulk  moduli  of  the  solid  grains  would  be  greatly  reduced  by 
the  presence  of  the  unsaturated  micropores,  leading  to  a  much  more 
compressible  bulk  mixture.  Under  a  high  stress  load-unload  cycle,  such  a  mix¬ 
ture  would  exhibit  permanent  compaction  and  high  energy  absorption,  neither  of 
which  are  character istic  of  fully  saturated  materials.  Thus,  -it  is  imoortant 
to  characterize  the  grain  compressibility  of  materials  with  microporosity, 
such  as  those  from  Enewetak  Atoll,  to  insure  that  aoDrooriate  relationsniDS 
for  grain  comoressibi 1 i ty  are  available  and  used. 

In  this  section  we  describe  the  development  of  a  test  technique  for 
characterization  of  grain  compressibility  and  describe  test  results  on  steel 


and  quartz  standards  as  well  as  on  the  various  materials  from  Enewetak.  Based 
on  these  test  data  it  was  concluded  that  the  micropores  in  the  Enewetak 
materials  will  be  very  near  complete  saturation  in  their  in  situ  state,  and 
will  have  little  influence  on  the  solid  grain  compressibility. 

2.2  TEST  PROCEDURES 

The  technique  used  to  test  the  samples  involved  loading  an  unjacketed 
soil-fluid  mixture  hydrostatically  to  approximately  4  Kbar  while  insuring  that 
no  effective  stress  develops  in  the  soil  skeleton.  The  total  volume  change  of 
the  mixture  is  measured  and  used  to  compute  the  stress-strain  relationship  for 
the  soil  utilizing  the  known  pressure  volume  response  of  the  fluid  and  the 
known  volume  of  solid  grains.  A  seven  Kbar  pressure  vessel,  with  a  1.5  in 
inside  diameter,  was  used  to  confine  the  fluid/grain  mixtures.  A  measured 
volume  of  soil  is  placed  in  the  vessel  and  saturated  with  deaired  fluid  under 
a  vacuum.  The  fluid/grain  mixture  is  loaded  in  a  servo-controlled  press  by  a 
piston  in  the  bore  of  the  pressure  vessel.  The  fluid  fills  the  vessel  to  a 
level  above  the  solid  grains  so  that  the  piston  never  contacts  the  grains. 
Thus,  only  a  hydrostatic  load  is  applied  to  the  soil  or  rock.  Figure  2.2  is  a 
schematic  section  view  of  the  pressure  vessel  showing  the  fluid/grain  mixture 
and  the  piston  loading  positions. 

The  first  step  in  measuring  the  grain  compressibility  is  to  accurately 
define  the  stress-volume  strain  response  of  the  pore  fluid.  In  order  to 
accomplish  this  two  tests  are  performed,  one  test  on  the  fluid  alone,  the 
second  test  on  a  fluid-steel  mixture,  using  a  steel  cylinder  of  known 
pressure-volume  response  submerged  in  the  fluid.  Two  tests  are  needed  in 
order  to  correct  the  fluid  compressibility  for  the  elastic  exoansion  of  the 
Dressure  vessel.  The  volume  strain  of  the  fluid,  e f ,  is  calculated  by  using 
the  results  from  both  tests  at  the  same  pressure  level.  For  the  fluid  test, 
the  total  volume  change  may  be  expressed  as 

AVn  =  eflVfl  +  AVa  (2-1) 

and  for  the  fluid-steel  mixture  test. 


(2-2) 


AVT2  =  £f 2^f 2  +  esVs  +  AVa 


where 


AVj  =  measured  total  volume  change 
ef  =  volume  strain  of  fluid 
es  =  volume  strain  of  steel 
Vf  =  original  volume  of  fluid 
Vs  =  original  volume  of  steel 


AVa  =  apparent  excess  volume  change  due 
elastic  expansion  of  the  pressure 
vessel . ' 


Subtracting  Equation  2-2  from  Equation  2-1  yields 


AVT1  -  AVT2  =  CfiVfi  -  esVs  -  £f2Vf2 


(2-3) 


since  AVa  should  be  the  same  in  both  tests  at  any  given  pressure  level.  Also 
since  ef}  =  £f 2 r  Equation  2-3  can  be  rewritten  as 


fif 


_  Vfl  -  Vf 2  '  esvs 
-  -T*Vyf 


AVj2  ) 


(2-4) 


■hich  is  the  fluid  volume  strain  at  any  particular  pressure  level.  Having 
thus  defined  the  fluid  volume  strain,  the  elastic  volume  change  in  pressure 
vessel,  AVa ,  can  be  defined  as  a  function  of  pressure  by  substitution  of 
Equation  2-4  into  Equation  2-1. 


Once  both  the  fluid  volume  strain  and  vessel  expansion  relationships  are 
known,  the  soil  grain  volume  strain  can  be  calculated  by 


eg  = 


_  AVj  -  EfVf  -  AVa 

- t: - 


'2-5; 


wnere  AVj,  Vf  and  Vg  are  measured  and  ef  and  AVa  are  the  appropriate  values 
from  the  stress-fluid  strain  and  stress-apparent  volume  change  relationships 
described  above.  Equation  2-5  is  derived  by  substituting  the  strain  in  the 


yyrj 


solid  grains,  eg,  and  grain  volume,  Vg,  for  the  values  for  stsel  given  in 
Equation  2-2. 


2.3  PRESENTATION  OF  TEST  DATA 

Test  data,  incrementally  corrected  using  Equation  2-5,  are  presented  as 
plots  of  pressure  versus  the  volume  strain  in  the  solid  grains.  The  slope  of 
the  pressure-volume  plot  represents  the  tangent  bulk  modulus  of  thesolid 
grains.  Steel  ball  bearings  and  quartz  sand  were  tested  in  order  to  verify 
the  technique  through  comparisons  to  published  values.  Selected  materials 
from  Enewetak  Atoll  were  also  tested  including  sand  and  cemented  and  unce¬ 
mented  cored  samples.  One  sample  of  cored  material  was  ground  to  a  fine 
powder  and  tested  to  determine  whether  this  mechanical  breakdown  of  the  grains 
had  any  effect  on  the  influence  of  microporosity.  Figures  2.3  through  2.9  are 
plots  of  pressure  vs  solid  grain  volume  strain  for  all  of  the  materials 
tested. 
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2.4  DATA  ANALYSIS 

Least-square  linear  fits  to  the  preliminary  data  are  included  in  the 
figures.  As  noted  on  the  figures,  the  bulk  moduli  of  the  steel  ball  bearings 
and  the  quartz  sand  compare  very  well  with  published  data  for  those  materials. 
The  bulk  moduli  of  the  Enewetak  materials  are  in  the  5  to  6  million  psi  range 
except  for  the  beach  sand,  which  has  a  modulus  of  9.1  million  psi.  The  bulk 
modulus  values  are  summarized  in  Table  2.1. 


Measurement  resolution  during  the  initial  portion  of  the  loading,  below 
20,000  psi,  was  insufficient  to  determine  reliable  volume  strains.  Data  below 
this  pressure  level  are  not  shown  on  the  data  Dlots.  Above  50,000  psi  a 
nonlinear  trend  is  noticed  in  all  of  the  data  which  is  evidently  due  to  an 
irregularity  in  the  pressure  volume  relationship  for  the  pore-fluid.  Since 
the  same  experimentally  determined  fluid  pressure-vo 1 ume  relationship  is  used 
to  correct  all  test  data,  each  of  the  plots  is  similarly  affected.  We  are 
currently  running  additional  fluid  compressibility  tests  to  provide  better 
experimental  resolution  in  both  the  high  and  low  pressure  regimes. 
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2.5  CONCLUSIONS  ANO  RESEARCH  PLANS 


Our  initial  study  of  grain  compressibility  has  provided  very  promising 
results,  as  shown  by  comparisons  to  published  values.  The  testing  and  data 
reduction  procedures  are  relatively  straightforward  which  makes  the  test 
desirable  for  determining  the  bulk  modulus  of  unpublished  materials.  Further 
work  will  be  completed  to  resolve  the  problems  encountered  in  the  low  and  high 
pressure  regimes.  Transducers  with  finer  resolution  will  help  define  the  low 
pressure  behavior,  and  more  testing  will  be  done  to  work  out  the  irregulari¬ 
ties  in  the  high  pressure  regime. 


At; 


Table  2.1.  Bulk  modulus  values  obtained 

from  grain  compressibility  testing 

Material 

Bulk 

Modulus 

(psi  x  106) 

(MPa  x  104) 

Steel  Ball  Bearings 

22.2 

15.31 

Quartz  Sand 

5.2 

3.58 

Enewetak  Beach  Sand 

9.1 

6.27 

Silt-Sand-Gravel  from  KAM-2 

5.6 

3.86 

Ground  Silt-Sand-Gravel  from  KAM-2 

6.1 

4.21 

Vugular  Limestone 

5.7 

3.93 

Cemented  Material  from  XSA-2 

6.1 

4.21 

LVDT 


Loading 
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Figure  2.2.  Schematic  section  view  of  grain  compressibility 
apparatus. 
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SECTION  3 

UNIAXIAL  STRAIN  SHOCK  CONSOLIDATION 


3.1  INTRODUCTION 

In  previous  work  for  AFOSR,  Blouin  and  Shinn  (1983)  provide  strong  evi¬ 
dence  that  blast-induced  liquefaction  and  subsequent  consolidation  of  the 
liquefied  deposits  can  add  substantially  to  the  apparent  volume  of  craters  in 
saturated  media.  In  fact,  in  geologic  settings  such  as  Bikini  and  Enewetak 
Atolls,  consolidation  or  subsidence  may  be  the  dominant  mechanism  contributing 
to  the  crater  volumes.  While  current  multiphase  models  are  capable  of  dupli¬ 
cating  the  blast-induced  liquefaction  portion  of  the  crater  formation  process, 
no  data  exist  on  the  subsequent  consolidation  process  to  guide  the  develop¬ 
ment  of  more  comprehensive  theoretical  and  computational  models  with  which  to 
treat  these  late-time  phenomena. 
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To  meet  the  need  for  such  phenomenological  and  quantitative  guidance,  we 
have  undertaken  development  of  laboratory  tests  which  replicate  the  important 
features  of  the  dynamic  and  quasi-static  phases  of  the  shock  load-unload  and 
consolidation  processes.  These  tests,  termed  shock  consolidation  tests,  con¬ 
sist  of  an  undrained  load-unload  cycle,  followed  by  a  drained  consolidation 
loading.  The  undrained  portion  is  meant  to  replicate  the  shock  load-unload 
liquefaction  cycle,  and  the  drained  portion  replicates  the  late-time  con¬ 
solidation  process  as  in  situ  effective  stresses  are  reestablished. 


This  section  describes  the  two  versions  of  the  shock  consolidation  test 
currently  under  development  and  presents  preliminary  data  on  both  cemented  and 
uncemented  porous  materials  from  Enewetak  Atoll.  Even  in  the  early  stages  of 
develoDment,  these  tests  clearly  demonstrate  the  liquefaction  Drocess  and  pro¬ 
vide  convincing  evidence  that  substantial  volume  reductions  occur  during  con¬ 
solidation  of  the  liauefied  deoosits. 
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3.2  TEST  PROCEDURES 


Two  tyDes  of  uniaxial  strain  snock  consolidation  tests  were  developed, 
oedometer  and  K0  triaxial.  The  principal  differences  between  the  two  test 
types  were  in  the  sample  dimensions  and  in  the  method  of  radial  restraint 
which  was  used.  The  uniaxial  test  was  selected  because  it  closely  approxima¬ 
tes  the  one-dimensional  airblast  loading  and  also  the  uniaxial  consolidation 
condition  which  is  thought  to  be  predominant  following  liquefaction.  Other 
load-unload  strain  paths  will  be  utilized  in  further  test  development.  The 
oedometer  samples  were  in  the  form  of  thin  discs  (height  to  diameter  ratio  of 
about  0.25)  and  restrained  within  a  rigid  steel  ring.  The  K0  triaxial  samples 
were  longer  (height  to  diameter  ratio  of  about  2.0)  and  were  confined  by  a 
fluid  within  a  triaxial  pressure  vessel,  such  that  a  zero  radial  strain  con¬ 
dition  was  maintained  during  the  loading.  Other  than  these  basic  differences, 
the  testing  procedures  are  similar  as  described  below. 

After  placing  the  sample  in  the  test  vessel,  a  vacuum  is  applied  to 
remove  any  air  in  the  pores.  The  sample  is  then  pressure  saturated  with 
deaired  water.  Separate  axial  force  and  pore  pressure  controls  allow  the 
sample  to  be  loaded  with  prescribed  initial  total  stress  and  pore  water 
pressures.  The  initial  conditions  are  generally  set  to  reproduce  the  state- 
of-stress  the  soil  would  experience  in  situ.  A  typical  set  of  initial  con¬ 
ditions  might  include  an  axial  effective  stress  of  200  psi  and  Dore  water 
Dressure  of  200  psi  for  a  total  initial  axial  stress  of  400  psi. 

Following  the  application  of  the  initial  stress  and  pore  pressure  con¬ 
ditions,  the  pore  water  drainage  port  is  closed  and  an  undrained  uniaxial 
loading  and  unloading  cycle  is  aoolied.  The  samole  is  unloaded  back  to  the 
original  total  axial  stress.  Early  in  the  unloading  of  both  the  uncemented 
and  cemented  materials,  the  samDles  undergo  a  rapid  loss  of  all  effective 
stress  and  become  liauefied.  From  this  Doint  on  the  unloading  is  completely 
hycrosta*-  -c  i’.e.  total  stress  eoua's  me  core  water  pressure'. 

Once  the  initial  total  axial  stress  is  reached,  the  pore  pressure  line  -s 

opened  and  pore  water  is  allowed  to  flow  out  of  the  samole  under  the  applied 


total  stress  until  the  initial  overburden  effective  stress  is  reestablished. 
Ouring  tnis  chase  the  core  water  oressure  decreases  from  the  initial  total 
stress  value  to  the  initial  bore  pressure  value,  while  the  effective  stress 
increases  from  zero  to  its  initial  value.  The  total  stress  is  held  constant 
over  this  time  interval. 

3.3  PRESENTATION  OF  TEST  DATA 

The  most  important  aspect  of  any  consolidation  test  is  the  amount  of 
axial  deformation.  The  deformation  of  interest  in  the  consolidation  oortion 
of  the  shock  consolidation  test  is  the  change  in  sample  length  from  the 
beginning  of  the  drained  loading  segment  to  the  end  of  the  test.  This  defor¬ 
mation  represents  the  amount  of  axial  or  volume  strain  which  can  be  expected 
after  the  soil  undergoes  a  uniaxial  undrained  load-unload  cycle.  Figures  3.1 
through  3.3  show  preliminary  results  of  an  oedometer  test  on  an  uncemented 
si  1 t-sand-grayel  sample  from  Enewetak  borehole  OAR-2,  including  plots  of  total 
axial  stress,  pore  pressure,  and  effective  axial  stress  as  functions  of  axial 
strain.  Figures  3.4  through  3.6  show  preliminary  results  for  a  cemented 
Enewetak  coral.  Figures  3.7  through  3.9  show  preliminary  results  of  a  K0 
triaxial  shock  consolidation  test  on  saturated  beach  sand. 

3.4  ANALYSIS  OF  SHOCK  CONSOLIDATION  DATA 

Before  beginning  analysis  of  the  test  data,  the  important  points  of  the 
test  should  be  defined.  Each  plot  has  been  labeled  with  letters  from  a  to  e 
which  represent,  respectively,  (a)  the  start  of  the  undrained  loading  from  the 
initial  stress  and  pore  pressure  conditions,  (b)  the  peak  undrained  stress, 

(c)  the  point  where  the  effective  stress  drops  to  zero  and  the  unloading  beco¬ 
mes  hydrostatic  ( 1 iauefaction  occurs),  (d)  the  start  of  the  drained  con¬ 
solidation  portion  of  the  test,  and  (e)  the  point  where  the  final  effective 
stress  ’S  once  again  equal  to  the  initial  effective  stress.  The  dashed  lines 
on  each  of  toe  dots  reoresent  the  initial  stress  and  oressure  values. 

Analysis  of  Figures  3.1  through  3.3  snow  that  the  final  amount  of  con¬ 
solidation  £o r  the  uncemented  material  under  drained  conditions  is  aoproxima- 


tely  equal  to  the  deformation  which  occurred  during  the  undrained  portion  of 
the  loading.  Figures  3.4  through  3.S  shew  that  the  final  amount  of  con¬ 
solidation  in  the  cemented  material  is  slightly  less  than  the  peak  deformation 
under  the  undrained  loading.  If  this  proves  to  be  a  consistent  difference 
between  uncemented  and  cemented  materials,  it  will  likely  be  due  to  the  larger 
grain  size  of  the  cemented  particles  after  the  cementation  is  broken.  The 
larger  average  particle  sizes  will  tend  to  consolidate  into  a  less  dense 
packing  under  given  axial  effective  stress  than  will  the  smaller  particles  in 
the  uncemented  materials.  Therefore,  the  originally  cemented  samples  with 
their  larger  particle  sizes  would  be  expected  to  reestablish  their  original 
effective  stress  at  a  somewhat  smaller  drained  displacement. 

A  more  detailed  analysis  is  currently  being  performed  to  calculate 
drained  and  undrained  modulus  values  from  the  shock  consolidation  tests  in  the 
oedometer.  Initial  work  has  shown  that  the  cemented  moduli  are  too  soft  due 
to  excess  volume  expansion  in  the  pressure  vessel.  Techniques  for  correcting 
for  the  excess  volume  expansion  similar  to  those  used  in  the  grain  compressi¬ 
bility  tests  are  being  evaluated. 

The  K0  triaxial  test  data  presented  in  Figures  3.7  and  3.8  show  behavior 
similar  to  the  oedometer  test  results.  One  basic  problem  with  the  K0  triaxial 
test  is  that  once  liquefaction  occurs  and  the  unloading  becomes  hydrostatic, 
the  radial  strain  cannot  be  controlled.  As  a  result,  the  sample  deformations 
during  unloading  are  no  longer  uniaxial.  This  difference  accounts  for  the 
variations  in  axial  and  radial  deformation  observed  during  the  unloading. 
Generally  the  samples  undergo  net  radial  compression  and  axial  extension,  pro¬ 
bably  due  to  compression  by  the  sample  jacket  during  the  hydrostatic 
unloading. 

3.5  CONCLUSIONS  ANO  RESEARCH  PLANS 

'he  initial  work  comDleted  on  the  snocK  consol idation  tests  indicates 
tnat  both  uncemented  and  cemented  materials  undergo  1 iauef act  ion  and  sub¬ 
sequent  consolidation  following  undrained  uniaxial  loadings.  Test  data  also 
indicate  that  the  volume  change  due  to  consolidation  may  be  related  to  the 


peak  deformation  during  shock  loading.  Cementation  may  reduce  the  amount  of 
consolidation  slight'ly.  More  analysis  of  the  test  data  and  additional  tests 
over  a  broader  range  of  peak  stresses  are  reauired  to  determine  the  influence 
of  the  various  material  and  test  parameters  on  the  final  amount  of  con¬ 
sol  idation. 

Additional  work  is  planned  in  calculating  the  modulus  values  for  the  two 
phase  mixture  and  the  soil  skeleton  during  the  undrained  loading  portion  of 
the  test.  Also  plans  have  been  made  to  adapt  the  K0  triaxial  shock  con¬ 
solidation  test  to  include  a  variety  of  lateral  restraint  conditions  during 
unloading  which  might  better  replicate  the  strain  paths  from  spherical  dynamic 
loadings.  The  undrained  unloading  phase  will  allow  controlled  radial  expan¬ 
sion.  The  addition  of  this  expansion  may  increase  the  amount  of  axial  defor¬ 
mation  that  is  measured  during  the  drained  consolidation  portion  of  the  test. 
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CONSOLIDATION  A03A6 


Effective  stress  vs.  axial  strain  for  a  silt,  sand,  gravel  sample 


CONSOLIDATION  A02A6 


pressure  vs.  axial  strain  for  a  cemented  limestone  sample 


CONSOLIDATION  A02A6 
-  2A  (  n  =  .361  ) 


Axial  stress  vs.  axial  strain,  K  triaxial  shock  consolidation  on 
beach  sand.  1 


CONSOLIDATION  Y27A6 


gure  3.9.  Effective  stress  vs.  axial  strain,  K  triaxial  shock  consol 


SECTION  4 


DESIGN  AND  EVALUATION 
OF  A  DYNAMIC  FLOW  TEST  DEVICE 


4.1  INTRODUCTION 

As  described  in  Section  7,  a  key  component  of  multiphase  modeling  is  the 
equation  of  motion  of  the  pore  fluid  within  the  porous  skeleton.  Nearly  all 
previous  work  in  this  area  is  founded  on  work  by  Biot  (1956,  1962a,  1962b). 

For  blast  loadings,  however,  Biot's  work  is  probably  inadequate  because  it 
assumes  laminar  flow  and  idealized  simple  pore  geometries  (i.e.  circular  and 
flat  ducts).  For  real  porous  media  and  flow  rates  which  are  in  the  transition 
and  turbulent  flow  regimes,  a  more  comprehensive  modeling  formulation  will  be 
required.  An  interim  formulation  which  incorporates  Biot's  theoretical  work 
and  Ward's  (1964)  empirical  results  is  presented  in  Appendix  E. 

This  section  describes  the  design  and  fabrication  of  a  servo-controlled 
dynamic  flow  device  which  has  been  built  and  is  currently  being  evaluated. 

With  this  device  we  hope  to  generate  an  empirically  based  fluid  friction  model 
which  will  be  generally  applicable  in  all  three  flow  regimes  and  which  will 
supersede  the  formulation  presented  in  Appendix  E. 

4.2  DESIGN  PROCEDURES 

Design  criteria  for  the  dynamic  flow  test  device  included  sample  size 
requirements,  pressure  and  pressure  gradient  specifications,  control  require¬ 
ments  and  data  acquisition  soecif ications.  It  was  determined  that  the 
device  must  be  capable  of  testing  samples  with  diameters  ud  to  2.0  in  and 
lengths  up  to  9  in.  Other  capabilities  which  were  specified  are:  the  ability 
to  pressurize  the  fluid  to  5000  psi  (yielding  flow  gradients  of  up  to  6700 
osi 'ft  on  a  9  in  sample),  the  ability  to  control  and  measure  the  rate  of  flow 
through  the  sample,  the  ability  to  measure  the  pressure  and  temperature  on  tne 
high  and  low  pressure  sides  of  the  sample,  and  the  ability  to  change  either 
the  sample  or  the  fluid  easily. 
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Based  on  the  listed  criteria  a  device  was  designed  and  constructed  which 
met  all  the  requi rements .  A  schematic  of  the  device  is  shown  in  Figure  4.1. 

The  device  was  constructed  from  components  of  a  6  in  hydraulic  cylinder  which 
were  modified  to  contain  a  sample  holder  and  the  pressure  and  temperature  sensors 

4.3  DESIGN  ANALYSIS  AND  RESEARCH  PLANS 

The  test  device  has  recently  been  completed  and  a  complete  series  of  eva¬ 
luation  tests  is  not  underway.  Initially,  a  series  of  tests  is  being  per¬ 
formed  on  a  cylindrical  duct  to  compare  the  output  of  our  device  with 
published  values  of  frictional  resistance  under  steady  state  conditions  in  the 
laminar,  transition  and  turbulent  flow  regimes.  Raw  output  data  from  a  typi¬ 
cal  test  are  shown  in  Figures  4.2  through  4.4.  Pressure  gradients  can  be 
calculated  using  the  measured  pressures  and  the  sample  length.  The  results 
will  be  plotted  as  a  function  of  flow  rate  through  the  duct. 

After  completing  the  calibration  series  of  tests,  various  other  samples 
will  be  tested  including  noncyl indrical  ducts,  ball  bearings  and  various  soil 
and  rock  samples.  These  samples  will  be  tested  in  both  the  static  and  dynamic 
modes  and  the  results  analyzed  and  an  updated  model  formulation  for  fluid 
friction  prepared. 


SECTION  5 


COMPUTATION  OF  UNDRAINED  MATERIAL 
RESPONSE  IN  HYDROSTATIC  AND  UNIAXIAL  COMPRESSION 

5.1  INTRODUCTION 

Multiphase  models  require  a  complete  description  of  the  fluid  and  solid 
phases  of  the  components  which  make  up  the  bulk  material.  In  the  case  of  the 
pore  fluid  components  this  includes  a  description  of  the  pressure  volume 
characteristics.  In  the  case  of  the  solid  skeleton  component  this  includes  a 
description  of  the  grain  compressibility  and  a  description  of  the  skeleton 
response  to  the  appropriate  loading  conditions.  The  grain  compressibility  is 
used  in  establishment  of  coupling  parameters  between  the  pore  fluid  and  the 
solid  skeleton.  Because  of  this  coupling,  the  skeleton  properties  cannot  be 
extracted  directly  from  undrained  tests,  nor  can  the  drained  skeleton  proper¬ 
ties  be  simply  incorporated  into  a  single  phase  model  of  the  bulk  material 
behavior. 

Because  multiphase  models  are  not  yet  routinely  used  in  numerical  calcu¬ 
lations,  equivalent  single  phase  total  stress  response  must  frequently  be  pro¬ 
vided  based  on  the  properties  obtained  to  support  two-phase  calculations. 

To  meet  this  need  we  have  developed  analytical  procedures  to  compute  the 
undrained  response  of  fully  saturated  materials  in  hydrostatic  and  uniaxial 
compression.  These  procedures  are  implemented  in  three  simple  computer 
programs  described  in  Sections  5.3  and  5.4.  Constitutive  relationships  for 
the  individual  material  components  described  in  Section  5.2  are  used  as  inputs 
to  these  programs. 

5.2  COMPONENT  CONSTITUTIVE  RELATIONSHIPS 
5.2.1  Introduction 

Three  constitutive  relationships  are  required  to  describe  the  undrained 
bulk  behavior  of  saturated  porous  materials  using  a  fully  coupled  material 
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model.  These  are: 


•  the  compressibility  characteristics  of  the  solid  grains 
which  make  up  the  material  skeleton; 

•  the  compressibility  characteristics  of  the  pore  fluid; 


•  the  deformation  characteristics  of  the  material  skeleton. 

These  relationships  are  discussed  individually  in  the  following  three  subsec¬ 
tions.  At  this  time  the  unloading  relationships  are  not  complete;  these  will 
be  included  in  next  year's  effort. 

5.2.2  Grain  Compressibility 

The  solid  grain  compressibility  model  is  depicted  schematically  in  Figure 
5.1.  Though,  as  shown  in  Section  2,  most  materials  have  linear  pressure 
volume  response  at  ki lobar  pressure  levels,  the  model  handles  nonlinear 
response  if  needed.  The  hydrostatic  pressure,  pg,  applied  to  the  solid  grains 
results  in  a  volumetric  strain,  eg.  The  volume  strain  is  expressed  in  terms  of 
engineering  strain  according  to 


(5-1) 


en  =  vGo  “  VG 

— 1 

where 

Vg0  =  volume  of  the  solid  grains 

Vg  =  volume  of  the  solid  grains  at  pressure  pg 

The  tangential  bulk  modulus.  Kg,  is  defined  as  the  slope  of  the  pressure- 
volume  strain  curve  at  a  specific  pressure  level  and  is  given  by 


Where  available,  bulk  modulus  of  the  solid  grains  as  a  function  of 
pressure  can  be  obtained  directly  from  laboratory  data  such  as  those  presented 


in  Section  2.  In  cases  where  data  are  not  available,  moduli  can  be  obtained 
using  empirical  relationships  from  the  literature  such  as  those  given  by 
Bridgman  (1931)  as 
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eG  =  a  x  10-7  Pq  -  b  x  10_12(pG) 2 

where  a  and  b  are  empirically  derived  constants  for  various  elements  and  com¬ 
pounds.  For  example,  calcium  at  30°  C  has  values  of  a  =  56.97  and  b  =  47.2 
where  pG  is  expressed  in  units  of  kg/cm^. 

For  our  example  calculations  we  fit  data  for  quartz  with  the  following 
relationships: 


Kq  =  344.  (Kbars)  for  pG  <  1.36  Kbars 


Kq  =  253.  pq  (Kbars)  for  pG  £  1.36  Kbars 

For  most  problems  with  pressures  less  than  10  Kbars  a  constant  grain  modulus  is 
usually  sufficient. 

5.2.3  Compressibility  of  Pore  Water 


The  pore  water  compressibility  model  is  also  depicted  schematically  in 
Figure  5.1.  Application  of  pore  pressure,  n,  results  in  a  volume  strain  of 
ew,  in  the  pore  water  where 


where 


(5-3) 


VWo  =  initial  volume  of  pore  water,  and 

Vw  =  volume  of  pore  water  at  a  specific  pore 
pressure,  n . 

The  tangential  bulk  modulus,  Kw,  is  defined  as  the  slooe  of  the  pore  pressure- 
volume  strain  curve  at  a  specific  oore  pressure  level,  i.e. 


Kw  - 


An 

Aew 


(5-4) 
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Compressibility  models  for  plain  water  and  sea  water  have  been  developed 
for  use  in  the  computerized  analytic  procedures  based  on  a  variety  of  data 
from  the  literature.  Britt's  fit  (1985)  to  the  data  of  Wilson  and  Bradley 
(1966  and  1968)  gives  the  specific  volume  of  plain  water  and  sea  water  as  a 
function  of  temperature,  pressure  and  salinity  as 


Vs  =  0.70200  + 


100 (17. 5273+0. 1101T-0.000639T2-0.039986S-0.000107TS) 
(na  +  5880.9  +  37.592T  -  0.34395T2  ♦  2.2524S) 


(5-5) 


where  the  absolute  pressure,  ;ra,  is  expressed  in  bars,  the  temperature  T  is  in 
degrees  C,  and  the  salinity,  S,  is  in  parts  per  thousand.  The  equation  is 
accurate  to  0.00013  cm2/g  for  pressures  from  0  to  1500  bars  and  temperatures 
from  0  to  40°C. 

Table  5.1  shows  values  of  the  specific  volume  of  fresh  water  and  sea 
water  for  a  range  of  pressures  from  0  to  800  Kbars.  The  values  for  pressures 
from  0  to  1.5  Kbars  were  computed  from  Equation  5-5  for  a  temperature  of  25#C 
and  salinities  of  0  and  32  parts  per  thousand.  The  latter  value  is  a  typical 
salinity  for  sea  water.  Above  1.5  Kbars  Britt's  recommended  Hugoniot  for  fresh 
water  was  used.  This  is  based  on  data  by  Grindley  and  Lind  (1971)  in  the  1  to 
8  Kbar  regime,  Bridgman  (1912)  in  the  8  to  12.5  Kbar  regime,  Rice  and  Walsh 
(1957)  in  the  12.5  to  450  Kbar  regime  and  Skidmore  and  Morris  above  450  Kbars. 

Values  for  the  specific  volume  of  sea  water  above  1.5  Kbars  were  esti¬ 
mated  from  Britt's  fits  to  Adam's  data  (1931)  which  compare  the  volume  strain 
in  fresh  water  to  that  in  salt  water  with  a  salinity  of  32  parts  per  thousand 
at  25°C.  Figure  5.2  shows  our  recommended  relationship  between  the  volume 
strains  in  fresh  water  and  sea  water  for  pressures  above  1.5  Kbars,  given  by 

—  =  1  +  0.074  tt-0.20  (5-6) 


where  ewf  is  the  volume  strain  in  fresh  water  and  ews  is  the  volume  strain  in 
sea  water.  The  pressure,  n,  is  expressed  in  Kbars.  Equation  5-6  was  used  to 
compute  the  specific  volumes  and  volume  strains  in  the  sea  water  shown  in 
Table  5.1  for  pressures  above  1.5  Kbars. 


The  specific  volumes  of  Table  1  were  used  to  compute  the  volume  strains 
in  engineering  strain  according  to 


e  =  vso 
ew  - - 


(5-7) 


where  Vso  is  the  specific  volume  at  a  pressure  of  zero  (1  atmosphere  absolute) 
and  Vs  is  the  specific  volume  at  the  pressure  of  interest.  The  bulk  moduli  of 
Table  5.1  are  tangent  moduli  computed  over  each  pressure  increment  according 
to  Equation  5-4. 

5.2.4  Skeleton  Compressibility 

The  skeleton  compressibility  for  any  material  of  interest  must  be  defined 
from  hydrostatic  and  uniaxial  strain  drained  loadings.  As  shown  in  the  sche¬ 
matic  view  of  Figure  5.1,  application  of  either  axial  effective  stress,  o'  (for 
the  uniaxial  loading),  or  mean  effective  pressure,  p'  (for  the  hydrostatic 
loading),  results  in  an  effective  volume  strain  in  the  skeleton,  e'.  The 
effective  volumetric  strain  is  defined  as 


where 


C  = 


V0  is  the  initial  apparent  volume  of  the 
skeleton,  and 

V  is  the  apparent  volume  of  the  skeleton 
at  either  a  specific  axial  effective  stress, 
a',  or  at  a  specific  effective  mean  pressure, 


(5-8) 


:or  the  hydrostatic  loading  the  bulk  modulus,  Ks,  is  defined  as 


"  AC  ' 

For  the  uniaxial  strain  loading  the  constrained  modulus,  Ms,  is  defined  as 


v.v/o;%-\vr'V\ 


Examples  of  effective  stress-strain  curves  in  the  uniaxial  loading  for 
uncemented,  weakly  cemented  and  well  cemented  Enewetak  carbonates  (Blouin  and 
Timian,  1986)  are  shown  in  Figure  5.3.  In  the  cemented  materials  there  is  a 
sharp  initial  increase  in  stress  until  the  cementation  breaks  down  (at  about 
1000  psi  and  5000  psi  in  the  weakly  and  strongly  cemented  materials, 
respectively).  The  breakdown  of  cementation  is  followed  by  a  much  softer 
response  until  the  void  volume  has  been  significantly  reduced.  The  hydrosta¬ 
tic  response  is  very  similar  to  the  uniaxial  response  in  the  corresponding 
materials.  These  skeleton  response  curves  are  used  in  the  example  calcula¬ 


tions  in  Section  5.4.3. 


5.3  MIXTURE  MODEL 


5.3.1  Introduction 


As  described  in  Blouin  and  Kim  (1984),  the  simplest  model  for  repre¬ 
senting  bulk  behavior  of  saturated  porous  material  is  the  so  called  mixture 
model.  This  model,  originally  developed  by  Wood  (1930),  treats  the  solid 
grain/pore  water  as  a  mixture  having  no  effective  stress.  The  composite 
material  is  thus  treated  as  a  heavy  fluid  having  a  density  which  is  governed 
by  the  porosity.  The  bulk  material  response  represents  the  lowest  possible 
bound  for  bulk  modulus.  In  general  it  gives  a  reasonable  approximation  of  the 
response  of  saturated  soils,  but,  as  shown  in  Blouin  and  Kim  (1984),  it  becomes 
deficient  in  cemented  and  dense  porous  materials. 


In  the  following  subsections  we  develop  formulations  and  computer  codes 


which  model  the  bulk  response  of  saturated  mixtures  based  on  incremental 


approximations  of  the  actual  pressure  volume  response  of  the  sold  grains  and 
pore  water.  These  formulations  are  derived  in  terms  of  both  engineering 


strain  ana  natural,  or  true,  strain. 


trm 


5.3.2  Mixture  Model  Based  on  Engineering  Strain 

In  developing  the  mixture  model,  the  pore  water  and  solid  grain  responses 
must  be  combined  using  mixture  theory. 

5. 3. 2.1  Bulk  Modulus  of  Pore  Water 

The  change  in  volume  strain  due  to  a  pressure  increment.  An-,',  is  given  by 


:5-U) 


where  AVW1-  is  the  change  in  pore  water  volume. 

The  tangent  bulk  modulus  over  the  pressure  increment,  An.,-,  is  given  by 


K  •  -  A,ri 

*wi  “  Ae  • 


The  initial  pore  water  volume  is  given  by 

vwo  =  novo 

where  n0  is  the  initial  porosity. 

Combining  equations  5-11  through  5-13  yields 


AVwi  =  ^.^ni^o 

''wi 


5. 3. 2. 2  Bulk  Modulus  of  Solid  Grains 


The  change  in  volume  strain  of  the  solid  grains  is 

a,.,  =  *vGi 


(5-12) 


(5-13) 


(5-14) 


15-15) 


wnere  AVq  ,  is  the  volume  change  of  the  solid  grains.  The  tangent  bulk 
modulus  of  the  solid  grains  is  given  by 


Sfi 


1 


'iVW 


where  ApGl-  is  the  change  in  hydrostatic  pressure  acting  on  the  solid  grains. 
Finally  the  initial  volume  of  the  solid  grains  is  given  by 


Vqo  =  (1  -  n0)Vc 


(5-17) 


Combining  5-15  through  5-17  gives 


iV<5i  *  4po<v° 


5. 3. 2. 3  Undrained  Bulk  Modulus  of  Mixture 


(5-18) 


Since  there  is  no  effective  stress,  the  total  applied  stress  Ap^  is  equal 
to  the  pore  pressure  which  is  also  equal  to  the  hydrostatic  stress  applied  to 
the  grains.  Thus 


Aff-j  =  Api 


APGi  =  Api 


(5-19a) 


(5-19b) 


Also  the  change  in  current  total  volume  of  the  mixture  equals  the  sum  of  the 
volume  changes  of  the  components; 


AVi  =  AG-j  +  AVwi 

Substituting  Equations  5-14  and  5-18  into  5-20  yields 
AVi  =  (1K:.no)  ApGiV0  +  ATTiVo 

*Gi  "•wi 

Incorporating  the  relationships  of  Equations  5-19  into  5-21  yields 


1  “  no  +  no  Ap ■ 

~v — : -  xr — r  i 

^Gi  KwiJ 


The  change  in  total  strain,  Ae^,  is  given  by 


(5-20) 


(5-21) 


(5-22! 


'•♦tVTV'W 


and  the  undrained  bulk  modulus  of  the  mixture,  Km^,  is  defined  as 

=  (5-24) 

Combining  Equations  5-22  through  5-24  yields 


Thus,  the  bulk  modulus  of  the  mixture  at  step  i  is  a  function  of  the  bulk 
moduli  of  the  solid  grains  and  pore  water  over  the  pressure  increment  An-j 
and  the  initial  porosity. 

5. 3. 2. 4  Algorithm  for  Computation  of  Undrained  Behavior  of  Mixture 

Using  Equations  5-24  and  5-25  the  computational  algorithm  presented  in 
Appendix  A.l  was  prepared.  The  program  logic,  shown  schematically  in  the  flow 
chart  of  Figure  5.4,  follows  the  usual  step  by  step  incremental  calculational 
procedure  for  non-linear  analysis.  An  example  calculation  using  the  above 
algorithm  is  presented  in  Appendix  A. 2. 

5.3.3  Mixture  Model  Based  on  True  Strain 

Frequently,  computational  algorithms  utilize  natural  or  true  strain 
rather  than  engineering  strain  to  describe  constitutive  relationships.  In 
order  to  support  such  algorithms  the  undrained  mixture  response  must  be  for¬ 
mulated  in  terms  of  true  strain. 

True  or  natural  strain  is  defined  by 

c,  =  In  1°  (5-26) 

1  i 

where  e-j  is  the  true  strain,  1^  the  current  length  and  10  the  initial  sample 


length.  Equation  5-26  is  applicable  when  comoressive  strains  are  defined 
as  positive.  Equation  5-26  may  also  be  written  as 

£i  =  -In  (1  -  £i)  (5-27) 

where  £-j  is  the  engineering  strain  given  by 

e,  =  II  (5-28) 

'o 

True  strain  is  continually  updated  such  that  application  of  a  given  increment 
of  true  strain  represents  a  given  percentage  change  in  dimension  independent 
of  the  strain  magnitude  when  the  increment  is  applied.  For  example,  a  5% 
increment  of  true  strain  represents  a  5%  change  in  dimension  irrespective  of 
the  initial  strain,  at  the  start  of  the  increment.  In  terms  of  engineering 
strain  a  5%  strain  increment  is  a  fixed  change  in  dimension.  It  represents  a 
5%  change  in  dimension  only  when  measured  from  the  initial  sample  dimension  10. 
For  a  sample  undergoing  compression,  a  5%  change  in  engineering  strain  repre¬ 
sents  more  than  a  5%  change  in  length  whenever  this  strain  increment  is 
applied  after  the  start  of  deformation.  Engineering  strain  and  true  strain 
are  nearly  equal  for  small  st.dins,  but  at  larger  strains  the  difference  be¬ 
comes  significant.  Figure  5.5  shows  a  plot  of  true  strain  as  a  function  of 
engineering  strain  which  illustrates  the  increasing  divergence  at  larger 
strain  values. 

5.3.3. 1  Undrained  Bulk  Mixture  Modulus  Based  on  True  Strain 

The  derivation  of  the  undrained  response  of  the  bulk  mixture  based  on  true 
strain  is  similar  to  that  presented  under  subsection  5.3.2  for  engineering 
strain.  The  bulk  modulus  of  the  pore  water  in  terms  of  true  strain,  Kw-j  ,  over 
the  pressure  increment,  Att,,  is  given  by 

Kwi  =  -=—  (5-29) 

Acw  ^ 

where  Aewi  is  the  change  in  the  true  volume  strain  which  is  expressed  as 


The  bulk  modulus  of  the  solid  grains  in  terms  of  true  strain,  Kg-,,  is  given  by 

KGi  =  (5-3 


where  AeG-j  is  the  change  in  true  volume  strain  which  is  expressed  as 

«G«  ■ 

vGi 

The  current  porosity,  n-j,  is  defined  as 

n,  =  vwi 


The  undrained  bulk  modulus  of  the  mixture  in  terms  of  true  strain,  Km-j, 
is  given  by 


Combining  Equations  5-29  through  5-34  and  Equations  5-19  and  5-20  in  the  same 
manner  as  for  engineering  strain  yields 


Thus  the  bulk  modulus  of  the  mixture  in  terms  of  true  strain  at  step  i  is  a 
function  of  the  bulk  moduli  of  the  solid  grains  and  pore  water  expressed  in 
terms  of  true  strain  and  the  current  porosity.  Mote  that  the  current  porosity 
is  used  in  the  expression  for  the  bulk  modulus  in  terms  of  true  strain  whiie 
the  initial  porosity  is  used  to  express  bulk  modulus  in  terms  of  engineering 
strain . 


-  -  -  V  ■  «  •  »  '  . 


5. 3. 3. 2  Algorithm  for  Computation  of  Undrained  Behavior  of  Mixture  in  Terms 
of  True  Strain 

A  second  computational  algorithm  to  compute  the  undrained  response  of  the 
mixture  based  on  true  strain  was  developed  from  Equations  5-34  and  5-35.  This 
is  presented  in  Appendix  B.l.  The  program  logic  is  the  same  as  that  presented 
for  the  engineering  strain  program  in  Figure  5.4.  The  same  example  problem 
solved  in  Appendix  A. 2  is  solved  in  terms  of  true  strain  in  Appendix  B.2.  The 
very  minor  differences  between  the  results  of  the  two  calculations  are  due  to 
the  incremental  approximations  to  the  pressure  deformation  response  of  the 
solid  grains  and  water. 

5.4  FULLY  COUPLED  MODEL 

5.4.1  Introduction 

Blouin  and  Kim  (1984)  describe  three  models  which  treat  the  effective 
stress  response  of  the  saturated  soil  or  rock  skeleton.  The  resistance  of  the 
soil  skeleton  to  compressive  loadings  is  in  addition  to  the  resistance  of  the 
solid-water  mixture  described  in  Section  5.3.  The  three  models,  termed  the 
decoupled,  partially  coupled,  and  fully  coupled  models,  differ  in  their  level 
of  sophistication. 

The  simplest  model  is  the  decoupled  model  in  which  the  soil  or  rock  ske¬ 
leton  acts  in  parallel  to  the  solid-water  mixture.  The  resultant  compressive 
moduli  are  simply  the  sum  of  the  mixture  modulus  plus  the  appropriate  skeleton 
modulus.  The  partially  coupled  model  includes  the  strain  in  the  skeleton 
which  results  from  compression  of  the  individual  grains  by  the  pore  pressure. 
The  most  sophisticated  model  is  the  fully  coupled,  which,  in  addition  to  the 
assumptions  for  the  partially  coupled  model,  includes  volume  change  in  the  soil 
water  mixture  due  to  effective  stress  acting  on  the  solid  grains. 

In  this  section  we  derive  formulations  for  undrained  response  due  to 
hydrostatic  and  uniaxial  strain  loadings  using  the  fully  coupled  maternal 
model.  These  formulations  are  based  on  engineering  strain.  They  represent 
the  most  sophisticated  means  of  predicting  undrained  response  from  drained 


skeleton  properties  and  are  valid  even  for  strongly  cemented  porous  materials 
and  at  high  strain  and  effective  stress  levels.  These  formulations  will  also 
provide  a  means  of  verifying  the  multiphase  dynamic  analysis  program,  MPDAP . 


5.4.2  Hydrostatic  Compression 

In  the  fully  coupled  model  the  pore  water  pressure  acting  on  the  solid 
grains  results  in  a  volume  decrease  in  the  entire  material  skeleton.  In  addi¬ 
tion,  the  effective  stress  in  the  soil  grains  results  in  further  compression  of 
the  individual  grains  and  an  additional  volume  decrease  in  the  soil-water  mix¬ 
ture  not  accounted  for  in  the  less  sophisticated  models. 

At  the  specified  step,  i,  the  change  in  the  bulk  volume  strain,  A£i,  is 
defined  as 


4£i  *  Z 


Two  components  contribute  to  the  net  volume  change; 


(5-36) 


AVi  =  A  Vmi  +  A  V'  G 


(5-37) 


where  AVm-j  is  the  volume  change  in  the  solid-water  mixture  due  to  the  pore 
water  pressure  and  AV'ci  is  the  volume  change  in  the  solid  grains  due  to  the 
effective  stress  change,  Ap'.  From  Equations  5-23  and  5-24, 


^vmi  =  <  .  vo 
Nmi 


(5-38) 


where  Km^  is  the  mixture  modulus  given  by  equation  5-25.  The  average  change 
in  grain  effective  stress,  Aa'Qi.  is  given  by 


Aa'ci  = 


(5-39) 


"le  cnange  in  volume  strain  in  the  solid  grains  due  to  the  effective  stress 
:hange  is  given  by 


where 


Ae’Gi  = 


W'Gi 

VGo 


Substituting  Equation  5-39  into  5-40  yields 

Ap’i 

a£  G i  =  (i 

By  definition, 


Gl‘  =  (l“ni  )KGi 

i  ^Gi 

1  -  ni  =  y. 


Substituting  Equation  5-43  into  5-42  gives 

Ap'i  V,- 


Ae*Gi  = 


vGi  KGi 


From  Equations  5-41  and  5-44 


Gi 


Ap'iVjVGo 

vGi  KGi 


Substitution  of  Equations  5-38  and  5-45  into  Equation  5-37  gives 


ATT  i 

AVi  =  vo  + 

“mi 


Ap’i  Vj  vGo 

vGi  KGi 


By  definition 


VGo  =  (1  "  n0)V0 

which  substituted  into  Equation  5-46  yields  the  net  volume  change 


AVi 


Att i  ( 1  —  nQ )  Ap '  -j  V -j 
."mi  +  VGi  XqT 


ComDining  Equations  5-36  and  5-43  with  5-48  gives 


wnere 


The  other  strain  compatabi 1 i ty  equations  are 


(5-50) 


A£i  =  ~ 
Kfi 


(5-51) 


where  Kf,-  is  the  bulk  modulus  for  the  fully  coupled  model,  and 


Aei  = 


Ap  1  I-  ATT,- 


(5-52) 


Equation  5-52  represents  the  total  strain  in  the  skeleton  due  to  the  effective 
stress  plus  the  compression  of  the  grains  by  the  pore  pressure. 

Equating  Equations  5-49  and  5-52  yields 


Kgi  ( Kq  ^ -Km  ^  ) 

AP'*  =  Kmi(KGi-aKs1)  A7Ti 


(5-53) 


The  effective  stress  law  is  given  by 


Ap-j  =  An +  Ap’,- 


(5-54) 


Combining  Equations  5-25,  5-49,  5-51,  5-53  and  5-54  with  a  bit  of  manipulation 


Kfi  =  ^si  * 


1  +  nr 


KGi  ~  aKsi 
^Gi  ( *^Gi ”*^wi  ) 

^wi  ( ^Gi  'a,l'si ) 


Equation  5-55  is  similar  to  the  linear  fully  coupled  equation  developed  by 
Biouin  and  Kim  (1984)  except  for  the  inclusion  of  the  parameter,  a.  The  para 
meter,  a,  decreases  from  unity  at  the  start  of  compression,  corresponding  to 


the  linear  assumption  in  Blouin  and  Kim  (1984).  For  the  case  where  the  skele¬ 
ton  modulus  is  zero,  Equation  5-55  degenerates  to  the  mixture  modulus  given  by 
Equation  5-25. 

The  pore  pressure  response  as  a  function  of  the  total  strain  increment  is 
obtained  by  combining  Equations  5-51,  5-52  and  5-54, 


5.4.3  Algorithm  for  Fully  Coupled  Hydrostatic  Response  of  Saturated  Materials 

A  computational  algorithm  to  compute  the  fully  coupled  response  of 
saturated  porous  media  to  undrained  hydrostatic  loadings  is  presented  in 
Appendix  C.l.  The  flow  chart  for  this  program  is  shown  in  Figure  5.6.  Inputs 
to  the  program  include  the  drained  skeleton  response  to  hydrostatic  loading  as 
well  as  the  solid  grain  and  water  pressure-volume  characteristics. 

Two  example  calculations  are  presented  in  Appendix  C.2,  one  for  a  well 
cemented  saturated  coral  and  the  other  for  saturated  beach  sand.  Skeleton 
behavior  of  both  materials  is  similar  to  that  shown  for  the  uniaxial  loadings 
of  Figure  5.3. 

5.4.4  Uniaxial  Compression 

The  development  of  the  constitutive  equations  for  uniaxial  strain  using 
the  fully  coupled  model  is  similar  to  that  for  the  hydrostatic  loading.  The 
overall  volume  strain  increment  is  defined  as 


s.s 


wnere 


Aaai  is  the  total  axial  stress  increment,  and 

Mf .j  is  the  undrained  constrained  modulus 

The  development  follows  the  procedures  described  by  Blouin  and  Kim  (1984)  for 
the  uniaxial  fully  coupled  loading  with  the  same  modification  of  the  Equation 
for  constrained  modulus  as  derived  in  Section  5.4.2  for  the  bulk  modulus. 
Thus,  the  undrained  constrained  modulus  is  given  by 


(5-58) 


The  incremental  pore  pressure  response  is  given  by 


ATTi  = 


Mfi-Msi 


(5-59) 


where 

MSi  is  the  drained  constrained  modulus  of  the  skeleton. 

5.4.5  Algorithm  for  Fully  Coupled  Uniaxial  Response  of  Saturated  Materials 

A  computational  algorithm  to  compute  the  fully  coupled  undrained  response 
to  uniaxial  strain  loadings  is  presented  in  Appendix  D.l.  The  program  flow 
chart  is  shown  in  Figure  5.7.  Program  inputs  include  the  skeleton  response  to 
uniaxial  drained  loading  and  the  pressure  volume  response  of  the  core  water 
and  the  solid  grains. 

Example  calculations  of  the  uniaxial  undrained  response  of  well  cemented 
coral  and  beach  sand  are  presented  in  Appendix  0.2.  The  uniaxial  skeleton 
response  for  these  two  materials  is  shown  in  Figure  5.3. 


mm 


Table  5.1.  Compression  properties  of  fresh  water  and  sea  water 


Fresh  Water 

Sea  Water 

JT 

vs 

«v 

Kwf 

vs 

eV 

*WS 

Pressure 

Specific 

Volume 

Bulk  Modulus 

Specific 

Volume 

Bulk  Modulus 

Volume 

Strain 

Salinity  * 

Vo  1 ume 

Strain 

Salinity  * 

(bars) 

(cm3/g) 

0  parts/ 

(cm3/g) 

32  parts/ 

thousand 

thousand 

(bars) 

(bars) 

0. 

1.00291 

22188. 

.97922 

23767. 

50. 

1.00065 

.00225 

22188. 

.97716 

.00210 

23767. 

100. 

.99842 

.00448 

22452. 

.97513 

.00418 

24076. 

150. 

.99623 

.00666 

22929. 

.97313 

.00622 

24519. 

200. 

.99407 

.00881 

23209. 

.97116 

.00823 

24863. 

250. 

.99194 

.01094 

23494. 

.96922 

.01021 

25224. 

300. 

.98984 

.01303 

23900. 

.96731 

.01216 

25605. 

350. 

.98777 

.01510 

24201. 

.96542 

.01409 

25869. 

400. 

.98573 

.01713 

24629. 

.96356 

.01599 

26284. 

450. 

.98372 

.01913 

24946. 

.96172 

.01787 

26576. 

500. 

.98174 

.02111 

25271. 

.95992 

.01971 

27180. 

550. 

.97979 

.02305 

25735. 

.95813 

.02154 

27359. 

600. 

.97786 

.02498 

25943. 

.95637 

.02333 

27857. 

650. 

.97596 

.02687 

26430. 

.95464 

.02510 

28223. 

700. 

.97408 

.02875 

26648 . 

.95293 

.02685 

28606. 

750. 

.97223 

.03059 

27159. 

.95124 

.02857 

29006. 

800. 

.97041 

.03241 

27538. 

.94957 

.03028 

29253. 

850. 

.96861 

.03420 

27926. 

.94793 

.03195 

29869. 

900. 

.96683 

.03598 

28164. 

.94630 

.03362 

29965. 

950. 

.96508 

.03772 

28732. 

.94470 

.03525 
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Figure  5.1.  Individual  component  stress-strain  curves. 


CALCULATE  UNDRAINED  BULK  MODULUS 


STEP-BY-STEP  CALCULATION 


Figure  5.6.  Flow  chart  for  undrained  bulk  response  using  fully  cou 
model  based  on  engineering  strain. 
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UPDATED  TWO-PHASE  MODEL  AND  COMPUTATIONAL  ALGORITHM 
6.1  INTRODUCTION 

The  development  of  advanced  multiphase  models  and  efficient  computational 
algorithms  for  handling  multiphase  models  is  moving  ahead  rapidly.  The  ulti¬ 
mate  goal  is  the  incorporation  of  an  advanced  three-phase  model  into  an  effi¬ 
cient  algorithm  for  treatment  of  a  broad  spectrum  of  multiphase  dynamic 
problems.  Because  this  is  a  multi-year  effort,  we  felt  it  was  essential  to 
incorporate  many  of  these  advances  into  an  interim  two-phase  code.  The  pur¬ 
poses  of  this  interim  approach  are: 

•  To  evaluate  advances  in  two-phase  material  models; 

•  To  evaluate  efficient  calculational  algorithms  and 
techniques  which  will  be  incorporated  into  the  multi¬ 
phase  code; 

•  To  provide  a  means  of  calculating  and  studying  two- 
phase  phenomenology  including  wave  propagation  problems, 
influence  of  material  and  flow  parameters  on  the  response 
of  two-phase  porous  media,  etc.; 

•  To  provide  a  means  of  calculating  and  designing  both 
laborotory  and  field  tests; 

•  To  provide  an  independent  means  of  verification  of  the 
multiphase  code  MPDAP  when  it  becomes  available. 

This  section  describes  the  advances  in  material  models  and  code  develop¬ 
ment  that  have  been  incorporated  into  the  interim  two  phase  dynamic  analysis 
program,  TPDAPII.  TPDAPII  is  a  vastly  improved  evolutionary  follow-on  to 
our  original  two-phase  code,  TPDAP,  documented  by  Kim  and  Blouin,  1984.  The 
advanced  material  models  and  comDUtational  techniques  included  in  TPDAPII  are 

i 

presented  in  this  section.  Section  6.2  describes  three  different  material 
model  options  including  the  uniaxial  strain  model,  the  decoupled  elasto- 
plastic  model  and  the  ARA2D  plasticity  model.  Section  6.3  describes  a  new 
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single-point  stress  calculations!  technique  for  computing  stresses,  strains, 
and  nonlinear  constitutive  properties.  Section  6.4  includes  a  series  of  veri¬ 
fication  problems  which  exercise  both  single  phase  and  two-phase  options  of 
the  code  in  static,  quasi-static  and  dynamic  problems  with  known  solutions. 

An  essential  part  of  the  TPDAPII  development  was  the  preparation  of  the 
User's  Manual  included  in  Appendix  G.  A  complete  listing  of  TPDAPII  is 
included  in  Appendix  H. 

6.2  MATERIAL  MODEL  DESCRIPTIONS 

6.2.1  Uniaxial  Strain  Model  (UNIAX) 

The  uniaxial  strain  model  is  used  for  one  dimensional  plane  strain 
loadings  only.  The  constrained  loading  modulus  of  the  material  skeleton  is 
specified  in  incremental  nonlinear  form  as  a  function  of  the  applied  vertical 
effective  stress.  Thus,  laboratory  drained  uniaxial  loading  data  can  be  input 
to  the  code. 

There  are  three  options  available  for  use  in  unloading.  In  the  first 
option,  the  unloading  constrained  modulus  is  specified  incrementally  as  a 
function  of  current  effective  vertical  stress.  In  this  option  a  multilinear 
unloading  curve  can  be  input.  The  second  option  uses  a  constant  unloading 
modulus  which  is  dependent  on  the  previous  maximum  vertical  effective  stress. 
The  third  option  also  uses  a  constant  unloading  modulus  which  is  expressed  as 
an  exponential  function  of  the  previous  maximum  vertical  effective  stress, 
cr'vmax*  The  unloading  modulus,  Mu,  is  expressed  as 

Mu  =  c  ( cr '  vmax ) ^  (6-1) 

where  c  and  d  are  experimentally  determined  constants.  Blouin  et  a  1  *.  (1984) 
determined  values  of  c  and  d  of  3470  and  0.651  respectively  for  Enewetak 
beach  sand,  with  both  Mu  and  cr'vmax  expressed  in  psi.  Details  on  both  the 
loading  and  unloading  routines  are  provided  on  cards  15  and  17  of  the  user's 
manual  in  Appendix  E. 


In  the  uniaxial  strain  model  and  all  other  models,  whenever  the  effective 
vertical  stress  drops  to  zero,  liquefaction  has  occurred  and  the  skeleton 
unloading  modulus  is  automatically  set  to  zero. 

6.2.2  Decoupled  Elasto-plastic  Model  (DCOUP) 

The  decoupled  elasto-plastic  model  is  the  simplest  model  for  use  in 
general  multidimensional  loadings.  Since  it  is  a  decoupled  model,  the 
deviatoric  and  volumetric  behavior  are  independent  of  one  another.  Thus,  at 
failure  the  material  does  not  exhibit  di latency  (increase  in  volume). 

The  volumetric  behavior,  as  shown  schematically  on  card  16B  of  the  user's 
manual,  is  described  by  loading  and  unloading  bulk  skeleton  moduli  expressed 
as  a  function  of  effective  mean  pressure.  Thus,  the  volumetric  model  can  be 
tailored  to  the  results  of  isotropic  drained  test  data. 

The  deviatoric  behavior  is  illustrated  in  Figures  6.1  through  6.3.  As 
shown  in  Figure  6.1,  the  shear  stress  lies  in  three  distinct  zones  which  are  a 
function  of  the  mean  effective  stress,  p'.  Below  the  initial  yield  surface 
the  material  response  is  linear-elastic.  The  shear  modulus,  G,  in  this  zone 
is  constant  with 

G  =  Ge  (6-2) 

where  Ge  is  the  elastic  shear  modulus  of  the  skeleton.  Above  the  initial 
yield  surface  and  below  the  yield  surface,  the  material  transitions  from  the 
elastic  to  the  plastic  state.  In  this  zone,  as  shown  in  Figure  6.3,  the  shear 
modulus  varies  linearly  between  Ge  and  the  plastic  shear  modulus,  Gp,  and  is 
given  by 

G  ■  -  GP>  *  GP  (6'3> 

where 

n  =  —  and 

Ty 

a  defines  the  initial  yield  strength  as  a 
fraction  of  the  yield  stress 


T 


is  the  current  octahedral  shear  stress  and 
is  the  octahedral  shear  strength  specified 
as  a  function  of  mean  effective  stress 


The  octahedral  shear  stress,  t,  is  given  by 


/r 

T  =  Y-f-  (o'  a  -  o'r) 


(6-4) 


where 


o' a  is  the  axial  effective  stress  and 
tr'r  is  the  radial  effective  stress 

Above  the  yield  surface  and  below  the  failure  surface  the  shear  modulus 
is  again  constant  with 

G  -  Gp  (6-5) 

where  Gp  is  the  plastic  shear  modulus.  As  shown  in  Figure  6.2,  above  the 
failure  surface  the  shear  modulus  is  given  by 


G  «  bGp 

where  b  is  a  user  defined  fraction  of  the  plastic  shear  modulus. 


(6-6) 


As  shown  in  Figure  6.2,  the  unloading  modulus  is  assumed  to  be  constant 
with  a  value  of  Ge.  Unload-reload  cycles  are  governed  by  the  previous  maximum 
shear  stress.  If  the  maximum  previous  shear  stress  is  greater  than  aTy,  as 
shown  in  Figure  6.1,  a  new  initial  yield  condition  is  established  based  on 
the  principal  of  isotropic  hardening,  with  aTy  redefined  as  equal  to  the 
maximum  previous  shear  stress.  For  all  subsequent  values  of  shear  stress  less 
than  the  newly  defined  aTy,  both  the  loading  and  unloading  shear  moduli  are 
elastic  and  equal  to  Ge. 

6.2.3  ARA  Two-Oimensional  Elasto-plastic  Model  (ARA2D) 

The  most  sophisticated  material  model  in  the  current  version  of  TPDAPII 
is  the  elasto-plastic  ARA  two  dimensional  model,  ARA2D  (Kim,  Piepenburg  and 
Merkle,  1986).  This  is  an  elastic-perfectly  plastic  coupled  model  with  the 


volumetric  and  deviatoric  behaviors  dependent  upon  one  another  once  the 
failure  surface  is  reached.  The  failure  surface  is  defined  by 


F(p,q,0)  =  q  -  j(a  +  /3p)n  +  kJ  R(0)  =  0  (6-7) 

where 

the  failure  surface,  F,  is  a  function  of  the 
mean  normal  stress,  p,  the  shear  stress,  q,  and 
the  load  angle,  0. 


These  stress  invariants  are  defined  as  follows: 

p  =  1/3  (di  +  <72  +  ff3) 


q  =  /3J2 


(6-8) 


(6-9) 


0  =  1/3  sin-1  (-  I1  ~)  (6-10) 

where: 

<7j,  <J2'  ancl  a3  are  the  principal  stresses,  and 
J2  and  J3  are  the  second  and  third  deviatoric 
stress  invariants,  respectively. 

The  function  R(0)  describes  the  shape  of  the  yield  surface,  as  projected 
in  the  tt  plane  (octahedral  plane).  Figure  6.4  shows  the  influence  of  the 
parameter  K  on  the  shape  of  the  yield  surface.  K  is  the  ratio  of  the  shear 
strength  in  triaxial  extension  to  the  shear  strength  in  triaxial  compression  at 
the  same  mean  pressure.  K  is  a  measure  of  the  influence  of  the  intermediate 
principal  stress  on  the  yield  surface  and  can  vary  from  0.5  to  1.0.  When  K  is 
equal  to  unity  R ( 0 )  is  circular,  indicating  a  Drucker-Prager  or  Von  Mises 
failure  model.  When  K  is  less  than  unity,  R(0)  is  a  smooth  cornered  approxi¬ 
mation  to  the  Mohr-Coulomb  failure  envelope. 

The  parameter  n  in  Equation  6-7  determines  the  shape  of  the  yield  surface 
in  the  p-q  plane.  For  n  =  0,  the  shear  strength  is  constant  with  respect  to 
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the  mean  pressure  and  the  strength  envelope  reduces  to  the  Von  Mises  or  Tresca 
yield  surface.  For  n  =  the  strength  envelope  represents  Hoek  and  Brown’s 
(1982)  failure  surface.  This  nonlinear  failure  model  is  a  multidimensional 
general ization  of  the  original  one-dimensional  axisymmetric  Hoek  and  Brown 
model  which  is  based  on  extensive  laboratory  and  field  data  (Kim,  Piepenburg 
and  Merkle,  1986).  For  n  *  1,  shear  strength  is  linearly  proportional  to  the 
mean  pressure  and  the  strength  envelope  in  the  p-q  plane  is  representative  of 
the  Orucker-Prager  or  Mohr-Coulomb  failure  surface. 

The  parameters  «,  £  and  k  of  Equation  6-7  define  the  failure  envelope  in 
the  p-q  plane.  They  can  be  determined  from  laboratory  tests.  Recommended 
relationships  for  determining  these  parameters  for  Von  Mises,  Hoek  and  Brown 
and  Mohr-Coulomb  type  materials  are  listed  in  Tables  6.1  and  6.2. 

6.3  A  SINGLE-POINT  METHOD  OF  COMPUTING  STRAINS,  STRESSES,  AND  CONSTITUTIVE 

RELATIONSHIPS 

6.3.1  Introduction 

In  the  conventional  method  used  for  nonlinear  finite  element  analysis, 
the  integration  points  (i.e.  Gauss  points)  represent  not  only  the  sampling 
points  used  to  integrate  the  element  stiffness  matrix  and  element  residual 
load  vector,  but  also  the  locations  where  the  strains,  stresses,  and  constitu¬ 
tive  relationships  are  updated.  For  large  scale  nonlinear  structural  or 
geotechnical  analysis  this  conventional  method  requires  an  unduly  large 
storage  capacity  to  save  historical  element  data  and  considerably  longer  com¬ 
putational  time.  Furthermore,  for  nonlinear  spherically  or  axisymmetr ical ly 
divergent  problems,  this  conventional  method  may  develop  local  stress 
oscillations  which  cause  numerical  instabilities. 

The  concept  of  the  proposed  single  point  method  was  developed  under  DNA 
contract  by  Kim,  Piepenburg  and  Merkle  (1986).  This  new  method  uses  the  same 
integration  points  to  integrate  the  element  stiffness  matrix  and  element  resi¬ 
dual  load  vector  as  the  conventional  method.  The  strains,  stresses,  and 
constitutive  equations,  however,  are  evaluated  at  the  center  of  each  indivi- 


dual  element  instead  of  at  the  integration  points  (refer  to  Figure  6.5). 

This  new  single-point  scheme  eliminates  local  stress  oscillations  for 
geometrically  divergent  problems  and  significantly  reduces  data  storage 
requirements  and  computational  time.  For  clarification,  the  single  point 
method  for  nonlinear  static  analysis  is  described  below.  A  more  complicated 
formulation  for  two  phase  media  has  been  incorporated  into  TPDAPII. 

6.3.2  Description  of  the  Single  Point  Method 

The  usual  procedure  for  solving  nonlinear  structural  equilibrium 
equations  in  static  finite  element  problems  uses  the  incremental  step-by-step, 
approach; 


[KT]n-!  Uu}n  -  {P}n  -  {R}n-1 


(6-11) 


where 


{ AU}n  is  the  structural  nodal  displacement 
increment  vector  at  step  n; 

|P}n  is  the  structural  applied  nodal  force 
vector  at  step  n. 

The  structural  tangent  stiffness  matrix,  [KyJn.j  is  expressed  as 


Mn-1  -  £/vlB]T  [D^jHBjdv 


(6-12) 


where 


[b]  is  the  matrix  which  relates  the  change 
in  the  strain  field,  {Aej,  to  the  element  nodal 
displacement  increment  vector  {au}; 


[DeP  ]  is  the  constitutive  elasto-plastic  matrix 
n-1 

which  relates  incremental  stresses  to  incremental 
strains; 


As  a  matter  of  practicality,  a  simpler  alternate  approach  was  used  in  TPDAPII. 
The  residual  load  vector  of  Equation  6-13  can  be  approximated  by  substitution 
of  the  resultant  stress  field  at  the  element  center,  (an-i}c,  as 


Wn-1  «  E/v[ B]T{an-l}c  dv 


(6-18) 


Equations  6-15  and  6-18  have  been  implemented  in  TPDAPII,  and  the  valida¬ 
tion  of  this  new  single  point  technique  is  demonstrated  in  verification 
problems  1  and  3  in  subsections  6.4.2  and  6.4.4. 

6.4  VERIFICATION  PROBLEMS 

6.4.1  Introduction 

The  objective  of  this  section. is  to  demonstrate  the  validity  of  the  com¬ 
puter  code,  TPOAPII .  Five  verification  problems  for  which  analytical  solu¬ 
tions  are  available  are  presented  here.  Table  6.3  summarizes  these 
verification  problems  in  terms  of  analysis  type,  geometric  model,  loading  con¬ 
dition,  and  material  model. 

6.4.2  Verification  Problem  1:  Elastic  Spherical  Wave  Propagation  in 
One-Phase  Medium 

Figure  6.6  shows  a  12  inch  hollow  spherical  hole  in  an  infinite  elastic 
medium  subjected  to  a  100  psi  internal  step  load.  Material  properties  and 
time-steps  used  for  the  calculations  are  included  in  Figure  6.6.  Two  calcula¬ 
tions  were  performed  to  demonstrate  the  efficiency  and  accuracy  of  the  new 
single-point  technique  (Section  6.3)  for  computing  stresses  and  strains.  The 
first  calculation  uses  this  single-point  technique  to  compute  stresses  and 
strains  at  the  center  of  individual  elements.  The  second  calculation  uses  the 
conventional  method  to  compute  stresses  and  strains  at  the  integration  points 
of  individual  elements. 
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Results  from  both  calculations  are  compared  in  Figures  6.7  through  6.9. 
Figure  6.7  shows  the  profiles  of  radial  displacement  at  55  msec.  Both  methods 
give  good  agreement  with  the  closed  form  solution.  Radial  and  tangential 
stress  profiles  at  65  msec  are  plotted  in  Figures  6.8  and  6.9,  respectively. 
Both  methods  smear  the  stresses  around  the  shock  wave  front.  This  smearing 
could  be  minimized  by  reducing  the  element  sizes.  Near  the  spherical  hole, 
the  stresses  generated  by  the  conventional  method  are  oscillating  within  indi¬ 
vidual  elements  while  the  stresses  generated  using  the  single-point  technique 
give  an  excellent  approximation  of  the  closed  form  solution. 

6.4.3  Verification  Problem  2:  Elastic  Spherical  Wave  Propagation  in 
One-Phase  Medium  Using  Skew  Boundary 

The  same  problem  as  presented  in  Section  6.4.2  is  solved  by  2-D  ax i sym¬ 
metric  analysis  with  a  skew  boundary.  As  shown  in  Figure  6.10  the  skew  boun¬ 
dary  is  oriented  such  that  it  allows  motion  only  in  the  radial  direction  in 
order  to  model  spherical  wave  propagation. 

Figures  6.11  and  6.12  show  the  radial  and  tangential  stress  profiles  at 
55  msec,  respectively,  calculated  by  the  single-point  technique  for  computing 
stresses  and  strains.  The  stress  profiles  are  essentially  the  same  as  those 
calculated  using  the  single-point  technique  with  spherical  symmetry  presented 
in  verification  problem  1. 

6.4.4  Verification  Problem  3:  Static  Nonlinear  Tunnel  Analysis  in 
One-Phase  Medium 

Figure  6.13  shows  a  schematic  section  view  of  a  64  inch  diameter  circular 
tunnel  subjected  to  a  uniform  free-field  loading  of  2300  psi.  The  material  is 
represented  by  the  ARA2D  model  and  is  assumed  to  be  elastic  under  the 
failure  surface  and  perfectly  plastic  along  the  failure  surface.  The 
Drucker-Prager  model  (n  =  1)  corresponding  to  the  triaxial  compression  mode 
(K  =  1),  is  used  to  represent  the  elasto-plastic  rock.  The  elastic  and 
plastic  properties  of  the  of  the  rock  are  given  in  Figure  6.13. 

As  in  verification  problem  1,  two  calculations  using  the  new  single-point 
method  and  the  conventional  method  are  performed  to  compute  stresses,  strains 


and  nonlinear  constitutive  relationships  in  individual  elements.  In  Figure 
6.14  the  radial  stress  profiles  from  both  calculations  are  compared  with  the 
analytical  finite  difference  solution  presented  by  Kim,  Davister  and 
Piepenburg  (1986).  As  was  the  case  in  the  spherical  wave  propagation  problem, 
the  conventional  method  shows  stress  oscillations  within  each  element  while 
the  single-phase  method  provides  an  excellent  match  with  the  finite  difference 
solution.  It  should  be  noted  that  such  numerical  oscillations  generated  by 
conventional  methods  are  more  pronounced  near  the  tunnel  surface  and  can  be 
the  cause  of  numerical  instabilities  when  the  large  volumes  of  rock 
surrounding  the  tunnel  are  subjected  to  plastic  yielding.  Oscillations  are 
generally  much  more  pronounced  during  plastic  yielding. 

6.4.5  Verification  Problem  4:  Linear  1-0  Strain  Consolidation 

A  fully  saturated  soil  deposit  is  assumed  to  overlay  a  rigid  impermeable 
base.  The  soil  deposit  is  subjected  to  a  step  loading  at  the  ground  surface, 
which  is  assumed  to  be  a  free-draining  boundary.  The  initial  excess  pore 
pressure  distribution  is  assumed  to  be  constant  throughout  the  deposit. 

Twenty  equally  spaced  4-node  elements  are  used  with  a  non-dimensional  time 
increment  factor  AT  =  0.005.  Plotted  in  Figure  6.15  is  the  profile  of  the 
normalized  excess  pore  water  pressures  at  time  factor  T  =  0.5,  at  which  time 
about  75%  of  the  excess  pore  pressures  is  dissipated  on  average  throughout  the 
soil  deposit.  The  calculated  excess  pore  water  pressures  show  close  agreement 
with  Terzaghi's  exact  solution. 

6.4.6  Verification  Problem  5:  1-D  Plane  Strain  Elastic  Wave  Propagation 

Through  Two-Phase  Medium 

A  step  load  is  applied  to  the  free  surface  of  a  fully  saturated  porous 
elastic  semi-infinite  medium.  Figure  6.16  shows  the  loading  time-history  and 
material  properties  used  in  the  analysis.  The  porous  medium  is  discretized 
into  150  equally  spaced  4-node  elements  to  a  deoth  of  225  ft.  A  constant  time 
step  of  0.155  msec  is  used. 

Figure  6.17  shows  the  computed  stresses  in  the  soil  skeleton  and  pore 
water  at  31  msec.  The  scale  on  the  effective  stress  is  magnified  100  times 


compared  to  the  pore  pressure  scale.  It  shows  that  the  pore  water  pressure  is 
more  than  a  hundred  times  higher  than  the  effective  stress.  The  stress  magni¬ 
tudes  and  stress  wave  locations  correspond  closely  to  the  hand  calculated 
values  computed  from  Blouin  and  Kim  (1984).  Also  plotted  in  the  figure  is  the 
one-phase  total  stress  analysis  using  the  equivalent  undrained  modulus.  The 
two-phase  stress  profiles  are  considerably  more  smeared  than  the  corresponding 
one-phase  stress  profiles,  indicating  that  the  additional  smearing  at  the  wave 
front  is  due  to  the  fluid  damping  associated  with  frictional  energy  dissipa¬ 
tion  between  the  pore  water  and  the  porous  solid  skeleton. 


where  oj  and  <73  are  the  major  and  minor  principal  stresses  at  failure 
and 

ac  -  unconfined  compressive  strength 
<f>  =  internal  friction  angle 

m,s  =  Hoek  and  Brown's  material  constants  as  tabulated  in  Table  6.2 


Table  6.1.  Material  Constants:  a,  0,  and  k  in  ARA2D  Model 
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Figure  6.5.  Schematic  view  to  illustrate  the  use  of  single-point  tech 
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At  =  0.022  Msec 
E  =  12,457  psi 
v  =  0.25 

p  =  1.88  x  10'4  1b-sec2/in4 


Figure  6.6.  Verification  problem  1,  elastic  spherical  wave  propagation 
in  one-phase  medium. 
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Material  properties,  loading  conditions  and  cavity  geometry  are  the  same 
as  those  of  verification  problem  1.  Stresses  and  strains  are  calculated 
at  the  center  of  the  element. 


Figure  6.10.  Verification  problem  2,  use  of  skew  boundary  to  simulate 
elastic  spherical  wave  propagation. 
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Figure  6.13.  Verification  problem  3,  static  nonlinear  tunnel  analysis 
in  one-phase  medium. 
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SECTION  7 


THEORETICAL  FORMULATIONS  FOR  THE  THREE-PHASE 
MODEL  ANO  COMPUTATIONAL  ALGORITHM 

7.1  INTRODUCTION 

The  theoretical  formulations  to  be  used  in  the  three-phase  code  MPDAP 
have  been  completed  and  are  presented  in  subsection  7.2.  The  principal  speci¬ 
fic  features  of  these  formulations  include: 

•  a  generalized  interim  fluid  friction  equation  incorporating 
Biot's  theoretical  and  Ward's  empirical  results.  This  is 
described  in  Appendix  E; 

•  use  of  pore  pressure  as  a  substitute  for  relative  fluid  dis¬ 
placement.  This  eliminates  one  degree  of  freedom  in  two- 
dimensional  calculations  and  two  degrees  of  freedom  in  three- 
dimensional  calculations,  resulting  in  large  reductions  in 
running  time  and  storage  requirements; 

•  fully  coupled  material  models; 

•  partial  saturation  (three-phase  formulation); 

•  constitutive  relations  for  nonlinear  materials 

7.2  FORMULATIONS 
7.2.1  Notation 

Note  that  positive  signs  have  been  used  for  elongation  and  tension.  A 
comma  denotes  differentiation  with  respect  to  the  subsequent  indices  and  the 
superposed  dot  denotes  time  rate. 

(u)  :  solid  phase  displacement 

< U )  :  fluid  phase  displacement 

(w)  :  apparent  fluid  displacement  relative  to  solid  skeleton 

{ <7 )  :  total  stress 

(o')  :  effective  stress 


7T 


{£) 

eV 

ep 

(u}e 

{n)e 

(u) 

in) 

(T) 

Q 

<b> 

k 

[DeP] 

{1} 

n 

Cw 

caw 

CG 

a 

P 

P  f 
Vf 

r 

0f 

0 

fiij 

[KT] 

ccj 

CE] 

[H] 

(F) 

( R  > 
(Q> 


fluid  pressure 

solid  phase  strain 

solid  phase  volumetric  strain 

fluid  phase  volumetric  strain 

solid  phase  element  nodal  displacement  vector 

element  nodal  fluid  pressure 

solid  phase  structural  nodal  displacement  vector 

structural  nodal  fluid  pressure 

applied  boundary  traction 

specified  boundary  flux 

body  force  vector 

coefficient  of  permeability 

elasto  plastic  stress-strain  matrix 

unit  vector  (1>T  =  <1  1  1  0  0  0> 

porosity 

fluid  compressibility 
compressibility  of  air-water  mixture 
compressibility  of  solid  grains 
compressibility  of  soil -water  mixture 
bulk  mass  density  of  mixture 
fluid  mass  density 
unit  weight  of  the  pore  fluid 
mass  increment  factor 

Ward's  constant  which  depends  on  fluid  properties 

parameters  in  Newmark's  /3  method 

parameter  in  Wilson's  9  method 

Kronecker's  delta 

tangent  stiffness  matrix 

coupling  matrix  between  solid  skeleton  and  pore  fluid 

matrix  of  compressibility  of  pore  fluid 

dissipation  resistance  matrix 

vector  of  nodal  forces 

internal  resisting  force  vector 

equivalent  flow  vector 


7.2.2  Field  Equations 


Principle  of  effective  stress: 

aij  *  *'ij  *  5ij  n  (7“1) 

Constitutive  law  for  solid  skeleton: 

{da1}  =  [DeP]  ( {de}  -  y  llJdir)  (7-2) 

Continuity  equation: 

Based  on  the  conservation  of  mass,  the  coupled  continuity  equation  of 
flow,  as  derived  by  Kim  (1982),  is  given  by 

(1-n)  dev  +  n  dep  -  a  dir  -  (1-n)  Cq'  dp'  =  0  (7-3) 

where 

a  =  n  Cw  +  (1-n)  Cq  (7-4) 

and 

<V  -  j&y  «S) 

Substitution  of  Equation  7-5  into  Equation  7-3  gives 

n(dep  -  dev)  =  a  d*  +  Cq  dp'  -  dev  (7-6) 

Using  equation  7-2,  the  right  hand  side  of  Equation  7-6  can  be  expressed  as 

(7-7) 

Equation  of  motion  for  the  bulk  mixture-. 

The  governing  differential  equation  for  the  bulk  mixture  is  expressed 


5*1 


K 


Equation  of  motion  for  the  pore  fluid: 


The  most  generalized  form  of  the  fluid  flow  equation  is  presented'  in 
Appendix  E  and  is  given  by 


=  pf  U-j  +  £7  *i  +  £  Pf  wi 


(7-9) 


where 


k'  = 


Tf  (  1  +  ^  k*  l*il  j 


(7-10) 


7.2.3  Spatial  Discretization 


Within  each  element,  field  variables  can  be  discretized  into  element 
nodal  values. 

{u}  *  [N]  (u}e 


(M  *  [B]  (u}e 
n  =  <G>  { 7r}e 
I n  <  i }  =  [A]  (Me 


7.2.4  Incremental  Relationships  of  Field  Variables 


Stress  vector  at  time  step  n  can  be  expressed  as 


(7-11) 


( CTn }  =  {o’n-l }  ♦  Ucr'n}  +  (l)  A7Tn 


(7-12) 
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Substitution  of  Equation  7-2  into  Equation  7-12  yields 


lan}  =  K-l)  ♦  [DeP]  { Aen}  +  |{l}  -  ^  [0®P]  { 1  A7rn 


(7-13) 


7.2.5  Assumptions  On  Fluid  Flow  Equations 


To  simplify  mathematical  derivations,  the  following  assumptions  are  made 
relative  to  the  motion  of  fluid  between  the  time  step  n-1  and  n: 


k'  =  k'n_i  «  Constant 


(7-14) 


PfUi  +  jj  PfWi  =  (pfUi  +  -  pfwi)n_Ji  =  Constant  (7-15) 


Now,  substituting  Equations  7-14  and  7-15  into  Equation  7-9  and  differen¬ 
tiating  with  respect  to  time, 


n>  i  = 


k’  n-1 


(7-16) 


*i  =  n-1  i 


(7-17) 


Ui  =  Lii  +  n  ^  n-1  ^»i 


(7-18) 


Rewriting  Equation  7-9  as  assumed, 


n '  i  =  ^pfi^  +  n  pfW^n-H  +  k1^  Wi 


(7-19) 


Now,  backsubsti tuting  Equations  7-17  and  7-18  into  Equation  7-19  and 


rearranging, 


(7-20) 


Thus  Equations  7-18  and  7-20  express  the  absolute  and  relative  fluid  motions 
respectively  in  terms  of  skeleton  motion  and  the  gradient  of  pore  fluid 
pressure. 


7.2.6  Global  Equilibrium  Equation  For  The  Bulk  Medium 


Shown  schematically  in  Figure  7.1  is  the  total  stresses  and  virtual 
displacements  on  the  boundary  of  the  infinitesimal  element.  The  total 
stresses  are  in  equilibrium  with  the  applied  boundary  tractions.  Taking  the 
solid  skeleton  movement  as  the  virtual  displacement,  the  internal  and  external 
virtual  work  must  be  equal.  The  internal  virtual  work  at  time  step  n 
(t  =  tn)  is  given  by 


5WX  =  [  {«e}T{an}  dv 
Jv 

Substituting  Equations  7-11  and  7-13  into  Equation  7-21, 


(7-21) 


6Wi  =  {6u}T  |  [ B ] ^ [ DeP ] [ B ] dv  j { Au } n 


(7-22) 


(X  |  [B]T(  { 1 }  -  ”  [DeP]  { 1  ( )  <G>dvJ{A7r(n 


+  X  [  dv 

J  v 

The  external  virtual  work  at  time  step  n  is  given  by  1 
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j •  ■ 
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(7-23) 


=  "J  1 5u}T { Fj  }n  +  |  { <5u{ T { T)  n  ds 

=  |  [n]T(p  -  npf ) [N]  dv)){u}n 

-  (l  J  [N]T  npf {ij}n  dvj  +  I  J  [N]T{T}n  ds 


Substituting  Equation  7-18  into  Equation  7-23  yields 


<5We  =  { <5u) 


'  H!  I, 


[N]T  p[N]  dv 


)  Wn 


(7-24) 


-  J  [N]TPfk'[A]  dvj  {7f}n 

♦  (l  f  CN]T{T}n  ds) 


Since  internal  and  external  virtual  work  are  equal, 

5Wr  =  6WE 


(7-25) 


Now,  global  equilibrium  equations  for  the  bulk  mixture  are  obtained  by  substi¬ 
tuting  Equations  7-22  and  7-24  into  Equation  7-25. 


externa?  complementary  virtual  work  which  is  done  between  time  tn_j  and  tn 
must  be  thd  same.  That  is, 


aw!*  =  awE* 

where  the  internal  complementary  work  is  given  by 


(7-30) 


#^n  /  2  ,  tn  , 

=  I  an  n  — (eE  '  ev)  dv  dt  t  {an, i } T{w}  dv  dt  (7-31) 

Jtn-x  Jv  i tn_j  Jv 


and  the  external  complementary  work  by 


aWc*  = 


=  f"  ( 

Jtn-i  Js 


8n  Q  ds  dt 


(7-32) 


Substitution  of  Equations  7-7  and  7-20  into  Equation  7-31  yields 


awi*  .  ||n  ■  |  |  arr^  -  ^{l| r[DeP] {l}Jn  dv 


(7-33) 


-  |  an^{ i}T  .  {1}T[DeP]{e}Jdv 

+  [  k'  {^m}  dv 

Jv 

-  J  {S**i)T  |pfk'  {u-j }  ♦  “  (l+r)(k* ) 2  { 7T,  i }  n_^jdv  dt 


Note  that  the  last  integral  term  in  Equation  7-33  is  assumed  to  be  constant 
with  respect  to  time  during  the  step.  Discretizing  Equation  7-33  by  Equation 
7-11  yields 


ISC# 


*1  =  {^}T  [E]  {ATT}  n  -  [  C  ]  T  { Au }  n  +  [  H  ]  { 7T } 

Jtn-1 


where 


-  At  [Mc]Tju}n.H  -  At[Mf]{n}n_* 


CE]  =  l 


{l}T[DeP]{l}  <G>  dv 


[H]  -  Z  |  [A]T  k* [A]  dv 


[Mf]  =  l  J  [A]Tpf  (k.}2  [A]  dv 


lu)n-3i  =  H(|u}n  +  {uJn-i) 

Then,  substituting  Equations  F-5,  F-9  and  7-36  into  Equation  7-34, 


5Wj*  =  {6ir}T  [E]{An}n  -  [C]T{Au{n 


+  [H]  |  At  {5f}n-i  +  ^HMn-1  +  ^Wn-l  +  f|“i 


Mc]T  (f*}n  +  (u}n-l) 


CMf]  (("In-1  *  fl'fln-l  +  ”■} n 


\  •v’JO,  v' 


For  the  external  complementary  virtual  work,  discretizing  Equation  7-32  by 
Equation  7-11  yields 


6We*  =  {dir}7 


f" 

Jtn-1 


(Ql  dt 


(7-38) 


where 


{Q}  *  l  [  <G>T  Q  ds 


(7-39) 


Assuming  a  linear  variation  of  {Q}  between  time  tn_j  and  tn.  Equation  7-38 
can  be  expressed  as 


«WE*  =  H*|T  [fi  ({Ql,-!  .  |Q|„) 


(7-40) 


Now,  substituting  Equations  7-37  and  7-40  into  Equation  7-30,  the 
following  global  equilibrium  equations  for  the  pore  fluid  are  obtained: 


(7-41) 


where 


{Pn}n  =  [H]  ^At{*}n-1  ♦  ( 

-  “  ["c]T|0|n-l  -  4t[Hfl  |  (*)„-!  »  “{S)n-lj 

-r  ((Qln-1  *  Kiln) 

7.2.8  Combined  Global  Equilibrium  Equations 

Equations  7-28  and  7-41  can  be  combined  in  the  following  matrix  form 


[M]{d}n  ♦  [K]{Ad}n  =  {P}n 


j  (Pu)n 

(  (pff)n 


<3)n  • 


Mn 


(Mn 


U*}n 


7.2.9  Linearized  Global  Equilibrium  Equations 


Introducing  a  time  integration  method  which  incorporates  both  Newmark's 
j3  method  and  Wilson's  0  method,  the  generalized  acceleration  vector  is 
expressed  as 


ld)n  a  cliAd}n  +  c2idln-l  +  c3ld}n-l 


(7-45) 


where 


"  /393At2 


C2  =  - 


jse2At 


(7-46) 


^3  =  1 


and  the  generalized  velocity  vector  is  expressed  as 


ldln  =  B1  (Ad)n  +  b2  f d ) n- 1  +  B3  fdln-l 


(7-47) 
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i 

.'*1 


a 


9 


where 


Bl  ~  083At 


(7-48 


B2  =  1  - 


83  1  -  At 


Substituting  Equation  7-45  into  Equation  7-43  and  rearranging,  we  can 
obtain  the  following  linearized  global  equilibrium  equations  which  can  be 
solved  simultaneously  at  each  step: 


[K] { Ad}n  »  {P}n 


(7-49 


where 


[K]  =  CiCM]  ♦  [K] 


(7-50 


(P>n  =  {PJn  '  CM]  (czldfn-i  ♦  CaldJn-jj 


7.3  PARTIAL  SATURATION 


In  numerous  geologic  settings  the  soil  or  rock  is  not  fully  saturated. 
Rischbieter  et  al.  (1977)  demonstrated  that  even  a  minute  amount  of  entrapped 
air  drastically  alters  the  pore  pressure  response  in  multiphase  porous 
materials.  Thus,  a  complete  treatment  of  multiphase  media  should  include  the 
capability  of  calculating  stress  wave  propagation  and  pore  fluid  response  in 


three-phase  porous  materials. 


Kim  (1982)  developed  a  unique  formulation  for  the  compressibility  of  the 
air-water  mixture  in  partially  saturated  porous  media.  This  formulation  has 
been  extensively  applied  in  quasi-static  problems  and  verified  against  experi 


mental  data.  It  will  be  incorporated  into  MPOAP  to  provide  it  with  three- 
phase  dynamic  capability. 

The  compressibility,  Caw,-  of  the  air-water  mixture  in  partially  saturated 
media  is  given  by 

TTgn 

•-aw  =  (1  ~  S0  +  HCS0)  -  —r  (7-51) 

(it  +  T)£ 

where 

S0  =  initial  degree  of  saturation 

Hc  =  coefficient  of  solubility  (Henry's  constant) 

*ao  s  initial  pore  air  pressure  (absolute) 
n  =  current  pore  water  pressure  (absolute) 

T  =  pressure  difference  between  the  air  and  pore 
water  due  to  surface  tension 

As  indicated  by  Equation  7-51,  the  compressibility  of  the  air-water  mixture  is 
nonlinear  with  respect  to  the  current  pore  water  pressure. 


FBX  =  (PdV)  bx 

FIX  =  (p-n  p£)  dV  ux  +  n  pf  dV  U*x 


Figure  7.1.  Total  stress  and  virtual  displacement  field  in  x-direction 


SECTION  8 


SUMMARY 


8.1  LABORATORY  WORK 

Three  major  laboratory  efforts  were  undertaken  during  the  first  year: 

•  measurement  of  grain  compressibility  and  evaluation  of 
the  influence  of  microporosity  on  grain  compressibility; 

•  development  of  the  shock  consolidation  test  designed  to 
replicate  dynamic  undrained  loadings,  liquefaction  and 
subsequent  consolidation,  and 

•  design  and  fabrication  of  a  pressure  vessel  to  measure 
fluid  friction  and  energy  dissipation  as  functions  of 
flow  rate,  change  in  flow  rate  and  pressure  gradient  in 
a  variety  of  porous  materials  over  a  wide  range  of 
pressure  gradients. 

Section  2  describes  the  experimental  procedure  and  presents  results  of 
the  grain  compressibility  tests.  The  values  of  grain  bulk  modulus  measured 
for  steel  and  quartz  were  within  the  range  of  published  values  and  thus  vali¬ 
dated  the  experimental  procedure.  The  modulus  value  for  the  Enewetak  beach 
sand  was  very  close  to  the  published  value  for  calcium  carbonate,  despite  the 
appreciable  degree  of  microporosity  in  this  material.  Values  for  all  cored 
materials  from  Enewetak  were  about  30%  lower  than  the  beach  sand,  indicating  a 
possible  influence  of  microporosity.  Even  so,  the  overall  influence  of  micro- 
porosity  will  be  very  slight,  since  even  the  reduced  solid  grain  moduli  of  the 
cored  Enewetak  materials  are  still  higher  than  the  moduli  of  solid  quartz 
grains.  Improvements  in  test  resolution  in  the  high  and  low  pressure  regimes 
are'  se  -  ng  our  sued  . 

The  third  section  describes  the  development  of  two  types  of  uniaxial 
strain  shock  consolidation  tests  and  presents  preliminary  test  data  on 


cemented  and  uncemented  samples.  These  tests  are  designed  to  simulate 
response  to  undrained  uniaxial  dynamic  loadings,  the  liquefaction  which  occurs 
early  in  the  dynamic  unloading,  and  finally  the  quasi-static  consolidation 
(volume  reduction)  which  occurs  as  the  sample  consolidates  and 
the  original  pretest  effective  stresses  are  reestablished.  Preliminary  test 
data  show  that  in  both  the  cemented  and  uncemented  test  samples  liquefaction 
was  achieved  shortly  after  undrained  unloading  began.  Considerable  quasi¬ 
static  consolidation  during  the  late-time  drained  loadings  was  measured,  typi¬ 
cally  approximating  the  peak  volume  strain  achieved  during  the  undrained 
loading  portion  of  each  test.  Future  testing  will  examine  the  influence  of 
both  peak  stress  and  different  strain  paths  on  the  late-time  consolidation. 

Section  4  describes  the  design  and  fabrication  of  a  dynamic  flow  test 
device  which  will  be  used  to  develop  empirical  models  for  fluid  friction.  The 
test  device  is  servo-controlled  and  is  designed  to  provide  measurements  of 
fluid  friction  and  energy  dissipation  over  a  wide  range  of  flow  conditions. 
These  include  flow  in  the  laminar,  transition  and  turbulent  flow  regimes.  The 
test  device  can  utilize  either  specified  flows  or  pressure  gradients  as  input 
to  the  porous  test  samples.  Initial  evaluations  of  this  device  are  underway 
using  simple  circular  ducts  for  comparison  to  available  flow  solutions. 

8.2  THEORETICAL  WORK 

Section  5  describes  a  series  of  computer  algorithms  used  to  predict 
undrained  hydrostatic  and  uniaxial  compressive  behavior  of  fully  saturated 
porous  media.  Inputs  include  the  drained  skeleton  effective  stress-strain 
response  and  the  pressure-volume  response  of  the  pore  water  and  solid  grains. 
The  skeleton  response  can  be  obtained  directly  from  drained  laboratory 
hydrostatic  and/or  uniaxial  strain  compression  tests.  The  output  includes  the 
total  undrained  stress-strain  response  as  well  as  the  pore  pressure  and  elec¬ 
tive  stress  response. 

-our  formulations  are  presented,  two  based  on  the  mixture  model  and  the 
others  based  on  the  fully  coupled  model.  The  formulations  based  on  the  mix¬ 
ture  model  use  both  engineering  strain  and  true  strain.  They  provide  a  good 


approximation  of  response  for  materials  in  which  effective  stresses  are  relati¬ 
vely  small.  The  formulations  based  on  the  fully  coupled  material  model  are 
expressed  in  terms  of  engineering  strain  and  are  applicable  to  all  classes  of 
porous  materials.  The  four  computer  algorithms  for  the  undrained  loadings  are 
presented  in  Appendices  A  through  D  along  with  sample  problems. 

Section  6  describes  the  modeling  and  computational  advances  incorporated 
into  the  new  two  phase  code  TPDAPII.  Detailed  descriptions  of  the  effective 
stress  models  are  provided.  These  include  the  uniaxial  strain  model  (UNIAX), 
the  decoupled  elasto-plastic  model  (DCOUP)  and  our  two-dimensional  plasticity 
model  with  coupled  deviatoric  and  volumetric  behavior  (ARA2D).  A  new  tech¬ 
nique  which  uses  a  single  point  at  each  element  center  to  compute  strains, 
stresses  and  constitutive  equations  is  presented.  Use  of  this  technique 
greatly  reduces  data  storage  requirements  and  computational  times,  especially 
for  large  scale  nonlinear  finite  element  analyses.  It  also  eliminates  local 
stress  oscillations  and  numerical  instabilities. 

The  TPDAPII  code  is  presented  in  Appendix  H  and  a  user's  manual  is 
included  as  Appendix  G.  Five  verification  problems  are  included  in  Section  6 
which  exercise  both  the  single  and  two  phase  options  of  TPDAPII  in  static, 
quasi-static  and  dynamic  problems.  Results  compare  extremely  well  to  known 
analytical  solutions.  The  single  point  technique  is  used  in  all  problems  and 
eliminates  oscillations  observed  in  several  solutions  using  conventional 
calculational  techniques. 

Section  7  describes  the  theoretical  formulations  which  will  be  incor¬ 
porated  into  the  general  multiphase  code  MPOAP,  being  written  as  part  of  next 
year's  effort.  The  features  of  these  formulations  include: 

•  a  generalized  interim  fluid  friction  equation  i ncoroorat i ng 
Biot's  theoretical  and  Ward's  empirical  results.  This  is 
described  in  Appendix  E; 

« 

•  use  of  pore  pressure  as  a  substitute  for  relative  fluid 
displacement.  This  eliminates  one  degree  of  freedom  in 


two-dimensional  cal  ulations  and  two  degrees  of  freedom 
in  three-dimensional  calculations,  resulting  in  large 
reductions  in  running  time  and  storage  requirements; 

fully  coupled  material  models; 

partial  saturation  (three  phase  formulation); 

constitutive  relations  for  nonlinear  materials. 
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APPENDIX  A 

UNDRAINED  BEHAVIOR  OF  MIXTURE  MODEL 
BASED  ON  ENGINEERING  STRAIN 

The  computer  program  MENGR,  listed  in  subsection  A.l  reads  a  set  of 
pressure-water  modulus  data  from  TAPE6.  For  grain  bulk  modulus,  the  empiri 
cal  equation  from  Section  5.2.2  is  hard-wired  in  the  subroutine  BULKG. 

DESCRIPTION  OF  INPUT  FILE:  TAPE6 
Card  1 
NWATER  (15) 

NWATER :  Number  of  pressure/water  modulus  pairs 
Card  2 

pl<  Kwl  . 

p2<  kw2  I  NWATER  cards  with  format  (2F10.0)  for  each  card. 

(  Note  that  P,  and  KW1-  are  in  terms  of  bars. 

pn»  Kwn 

DESCRIPTION  OF  INPUT  FILE:  TAPE7 
Card  1 

POR,  EMAX,  NDIV  (2F10.0,  15) 


POR  =  Initial  Porosity 

EMAX  =  Maximum  total  strain  at  which  calculation  terminates 
NDIV  =  Total  number  of  steps 


A.  1 


List  of  Program  MENGR 


PROGRAM  MENGR 

COMMON  /WATER/  P P ( 1 00 ) , BM ( 1 00  ) 

READ  PRESSURE-BULK  MODULUS  DATA  FOR  WATER 

READ( 6,1001)  NWATER 
FORMAT (I  5) 

DO  100  1=1, NWATER 
READ( 6 , 1002)  PP(I),BM(I) 

FORMAT ( 2F 1 0 . 0 ) 

READ  INITIAL  POROSITY:  POR 
MAXIMUM  STRAIN:  EMAX 
NUMBER  OF  DIVISION:  NDIV 

READ(7,1003)  POR , EMAX , NDIV 
F0RMAT(2F10.0, 15) 

SET  INITIAL  CONDITIONS 

PORI  =  POR 
VO  =  1.0 
VWO  =  POR* VO 
V  =  VO 
VW  =  VWO 
STRN  =  0.0 
P  =  0.0 

DSTRN  =  EMAX/NDIV 
STEP-BY-STEP  CALCULATIONS 
DO  500  1=1, NDIV 
CALCULATE  GRAIN  BULK  MODULUS 
CALL  BULKG(P.BKG) 

CALCULATE  WATER  BULK  MODULUS 
CALL  BULKW(P,BKW) 

CALCULATE  UNDRAINED  BULK  MODULUS 
BKF  =  BKG*BKW/ ( BKW+POR I*( BKG-BKW  )  ) 
CALCULATE  PRESSURE  INCREMENTS 


DP  =  BKF  * D  S  T  R  N 
UPDATE  PRESSURES 


P  =  P+DP 

UPDATE  STRAINS  AND  POROSITY 


122 


2001 


STRN  =  STRN+DSTRN 

DVW  =  P0RI*V0*DP/BKW 
DVG  =  (  1  .-P0Rn*V0*DP/BKG 
V  =  V-( DVG+DVW ) 

VW  =  VW- DVW 
POR  =  VW/V 

WRITE  TOTAL  MEAN  PRESSURE:  P 

UNDRAINED  BULK  MODULUS:  BKF 
PORE  WATER  PRESSURE:  P 
POROSITY:  POR 

AS  A  FUNCTION  OF  TOTAL  STRAIN:  STRN 

WRITE(8, 2001 )  STRN, P, BKF, POR 
FORMAT ( 4E 1 2 . 4 ) 

CONTINUE 

STOP 

END 

SUBROUTINE  BULKG(P,BKG)  • 

IF(P.LE. 1363. )  BKG  =  344827. 

IF(P.GT.  1363. )  BKG  =  253.  *P 

RETURN 

END 

SUBROUTINE  BULKW(PF.BKW) 

COMMON  /WATER/  PP ( 1 00 ) , BM ( 1 00 ) 

I  =  1 
CONTINUE 

IF(PF.GE.PP(I).AND.PF.LE.PP(I+1))  GO  TO  200 
I  =  1  +  1 
GO  TO  100 
CONTINUE 

BKW  =  BM(I)+(BM(I+1)-BM(I))*(PF-PP(I))/(PP(I+1)-PP(I)) 

RETURN 

END 
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A.  2  SAMPLE  PROBLEM 

A  sample  problem  is  prepared  to  demonstrate  the  computer  program  MENGR. 
TAPES  contains  the  modulus  of  fresh  water  as  described  in  Table  5.1.  The 
initial  porosity  of  the  mixture  is  assumed  to  be  40%.  Tape  8  lists  the  output 
data;  Pi  (bars),  KW1-  (bars),  and  n,  as  a  function  of  total  strain,  e,. 


Input  File  Tape  6 


45 

0.0 

50. 

100  . 
150. 
200. 
250  . 
300. 
350. 
400. 
450. 
500. 
550. 
600. 
650. 
700. 
750. 
800. 
850. 
900. 
950. 
1000. 
1500. 
2000. 
3000. 
4000. 
5000. 
6000. 
7000. 
8000. 
9000. 
10000. 
15000. 
20000. 
25000. 
30000. 
40000. 
50000. 
60000. 
70000. 
80000. 
90000. 
I . 0E+5 
2 . 0  E+  5 
4.0E+5 
8 . 0E+5 


21837. 

2  1837  . 
22173. 

225  1  1  .  ' 
22854. 
23197  . 
23544. 
23892. 
24245. 
24599. 
24954. 
25316. 
25675. 
26040. 
26408. 
26777. 
27149. 
27523. 
27903. 
28281  . 
28663. 
31387. 
35946. 
42626. 
51948. 
61576. 
71174. 
81038. 
91659. 

1 .0352E+5 
1 . 1682E+5 
1 .4771E+5 
1 .9084E+5 
2 . 4390E+5 
2 . 9762E+5 
3 . 7453E+5 
4 . 8077E+5 
5 . 8480E+5 
6.8493E+5 
7 . 8740E+5 
8.8495E+5 
9. 7088E+5 
1 .4065E+6 
2 . 4038E+6 
6. 2402E+6 


Input  File  Tape  7 


Pi  (bars)  Kwi  (bars) 


n . 


. 4000E-02 
. 8000E-02 
. 1 200E-0 1 
.  1  600E-0 1 
. 2000E-01 
.  2400E-01 
.  2800E-0 1 
. 3200E-0 1 
. 3600E-0 1 
. 4000E-0 1 
.  4400E-0 1 
.48005-01 
.  5200E-01 
. 5600E-01 
.  6000E-0 1 
. 6400E-0 1 
. 6800E-0 1 
. 7200E-01 
. 7600E-0 1 
. 8000E-0 1 
. 8400E-0 1 
. 8800E-0 1 
. 9200E-01 
. 9600E-0 1 
. 1 000E+00 
. 1 040E+00 
. 1 080E+00 
. 1 120E+00 
. 1 160E+00 
. 1 200E+00 
. 1 240E+00 
. 1 280E+00 
. 1 320E+00 
. 1 360E+00 
. 1 400E+00 
. 1 440E+00 
. 1 480E+00 
. 1 520E+00 
. 1 560E+00 
. 1 600E+00 
. 1 640E+00 
. 1 680E+00 
. 1720E+00 
. 1 760E+00 
. 1800E+00 
. 1840E+00 
. 1880E+00 
. 1920E+00 
.  I  9  6  Q  E  +  0  0 
.  2000E+00 


.  1  994E+03 
.4073E+03 
. 6  2  7  0  E  +  0  3 
. 8596E+03 
.  1  106E+04 
. 1365E+04 
.  1636E  +  04 
.  1928E  +  04 
. 2246E+04 
.  2588E+04 
. 2953E+04 
. 3343E+04 
. 3767E+04 
. 4229E+04 
.473  2  E  +  04 
. 5281 E+04 
. 5881 E+04 
. 6  5  3  5  E  +  04 
.  7  2  50E  +  04 
.80  3  3  E  +  04 
. 8895E+04 
. 98  5  3  E+04 
. 1093E+05 
. 1208E+05 
. 1329E+05 
. 1459E+05 
. 1596E+05 
. 1743E+05 
. 1903E+05 
. 2075E+05 
. 2264E+05 
.2471 E+05 
. 2698E+05 
. 2949E+05 
. 3225E+05 
. 3522E+05 
. 3842E+05 
.4185  E+05 
. 4559E+05 
. 4969E+05 
. 5421 E+05 
. 591 7  E  +  0  5 
. 6  46  2  E  +  0  5 
. 70  58  E  +  0  5 
.771 1 E+05 
. 84  2  7  E  +  0  5 
.921 l E+05 
. 1 006 E+0 6 
.  I  099 E  +  0 6 
.  I  L95E  +  06 


.  4986E  +  05 
.  5196E  +  05 
.  5494E  +  05 
.  58  14E  +  05 
.  6160E  +  05 
.  6485E  +  05 
.  6763E  +  05 
.  7294E+05 
.  7958E+05 
.  8 549E+05 
.  9 1 34E  +  05 
.  97  50E  +  05 
.  1 060E  +  06 
.  1 1 54E+06 
.  1 2  58E  +  06 
. 1 373E+06 
.  1 499E  +  06 
. 1635E+06 
. 1 787E+06 
. 1958E+06 
.  2 1  55E+06 
. 2394E+06 
. 2686E+06 
. 2873E+06 
. 3047E+06 
. 3232E+06 
. 3427E+06 
. 3686E+06 
. 3989E+06 
. 4316E+06 
.4704E+06 
. 5174E+06 
. 5691E+06 
. 6265E+06 
. 6898E+06 
. 7442E+06 
.7991E+06 
. 8  580E  +  06 
. 9334E+06 
. 1027E+07 
. 1 129E+07 
. 1 240E+07 
. 1 362E+07 
. 1491E+07 
. 1633E+07 
.  17  90E  +  07 
.  I  9  58 E  +  0 7 
.  2  1  3  4  E + 0  7 
. 2302E+07 
.  2403E  +  07 


. 3979E+00 
. 3959E+00 
.  3938E  +  00 
.  39  18E  +  00 
.  3897E  +  00 
.  3877E  +  00 
.  3856E  +  00 
.  3835E+00 
. 38 1 4E+00 
. 3792E+00 
. 3769E+00 
.  3747E  +  00 
. 3723E+00 
.  3700E+00 
. 3676E+00 
. 3652E+00 
.  3628E  +  00 
.  3603E  +  00 
. 3578E+00 
.  3553E  +  00 
.  3528E  +  00 
. 3502E+00 
. 3476E+00 
. 3450E+00 
. 3424E+00 
. 3397E+00 
. 3370E+00 
. 3342E+00 
.331 5E+00 
. 3287E+00 
. 3258E+00 
. 3230E+00 
. 3201E+00 
. 3 1 7  2  E+00 
. 3143E+00 
. 31 14E+00 
. 3084E+00 
. 3054E+00 
. 3023E+00 
. 2993E+00 
. 2962E+00 
.  2  9  3  1  E  +  00 
.  2899E  +  00 
.  2867E  +  00 
. 2835E+00 
. 2803E+00 
. 2770E+00 
. 2 7 37 E+00 
. 270 3 E+00 
. 26  70 E  +  00 


List  of  Output  File  Tape  8 
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APPENDIX  B 

UNDRAINED  BEHAVIOR  OF  MIXTURE  MODEL 
BASED  ON  TRUE  STRAIN 

The  computer  program,  MTRUE,  listed  in  subsection  B.l  uses  two  input 
files:  TAPE6  and  TAPE7.  The  descriptions  of  input  data  in  TAPE6  and  TAPE7  are 
identical  to  those  presented  in  Appendix  A. 

The  same  sample  problem  as  in  Appendix  A. 2  is  solved  using  the  Program 
MTRUE.  Subsection  B.2  lists  the  output  file,  TAPE8,  which  contains  the 
calculations  of:  p-j  (bars),  Kw-j,  (bars),  and  n^  as  a  function  of  total 
strain,  e.,-. 
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B.l  List  of  Program  MTRUE 


PROGRAM  MTRUE 

COMMON  /WATER/  PP ( 1 00 ) , BM ( 1 00 ) 

READ  PRESSURE-BULK  MODULUS  DATA  FOR  WATER 

READ(6, 1001)  NWATER 

1001  FORMAT (15) 

DO  100  1=1 , NWATER 
100  READ( 6 , 1002 )  PP(I),BM(I) 

1002  FORMAT ( 2F1 0 . 0 ) 

EO  =  0.0 

EBO  =  0.0 

VALOG  =  AL0G( 1 . -0 . 8  ) 

WALOG  =  AL0G10( 100  .  ) 

DO  105  1=2, NWATER 
E  =  EO+(PP(I)-PP(I-l))/BM(I-l) 

EB  =  -ALOG(l.-E) 

BM(I-l)  =  (PP(I)-PP(I-l))/ (EB-EBO) 

EO  =  E 
EBO  =  EB 
105  CONTINUE 

READ  INITIAL  POROSITY:  POR 
MAXIMUM  STRAIN:  EMAX 
NUMBER  OF  DIVISION:  NDIV 

READ( 7 , 1003 )  POR , EMAX , NDI V 

1003  F0RMAT(2F10.0,I5) 

SET  INITIAL  CONDITIONS 

STRN  =  0.0 
P  =  0.0 

DSTRN  =  EMAX/NDIV 

STEP-BY-STEP  CALCULATIONS 

DO  500  1=1, NDIV 

SBRNO  =  -ALOG( 1 .-STRN) 

SBRN  =  -ALOG( 1. -STRN -DSTRN) 

DSBRN  =  SBRN-SBRNO 

CALCULATE  GRAIN  BULK  MODULUS 

CALL  BULKG(P,BKG) 

CALCULATE  WATER  BULK  MODULUS 

CALL  BULKW ( P , BK W  ) 

CALCULATE  UNDRATNED  BULK  MODULUS 


oooonoo  r>  ooo  non  o  o  o 


CALCULATE  PRESSURE  INCREMENTS 
DP  =  3KF-DSBRN 
UPDATE  PRESSURES 

P  =  P+DP 

UPDATE  STRAINS  AND  POROSITY 

STRN  =  STRN+DSTRN 

POR  =  POR*( 1 .-DP/BKW)/ ( 1 .-DSBRN) 

WRITE  TOTAL  MEAN  PRESSURE:  P 

UNDRAINED  BULK  MODULUS:  BKF 
PORE  WATER  PRESSURE:  P 
POROSITY:  POR 

AS  A  FUNCTION  OF  TOTAL  STRAIN:  STRN 

WRITE( 8 , 2001 )  STRN, P, BKF, POR 
2001  FORMAT ( 4 E I  2 . 4 ) 

C 

500  CONTINUE 
C 

STOP 

END 

SUBROUTINE  BULKG ( P , BKG ) 

IF(P.LE. 1369.5)  BKG  =  344827. 

IF(P.GT. 1369 , 5)  BKG=2 5 3 . *P* ( 1 . - ( ALOG 1 0 ( P / 406 . 9 ) ) / 1 09 . 9 ) 

RETURN 

END 

SUBROUTINE  BULKW ( PF , BKW ) 

COMMON  /WATER/  PP ( 1 00 ) , BM ( 1 00 ) 

I  =  1 

100  CONTINUE 

IF(PF.GE.PP(  I)  .AND.P'F.LE.PPl  1  +  1  )  )  GO  TO  200 
I  =  1  +  1 
GO  TO  100 
200  CONTINUE 

BKW  =  BM( I )  +  ( BMCI  +  l )-BM( I ) )*( PF-PP( I ) ) /( PP( T  +  l  ) - PP (  I  )  ) 

RETURN 

END 


n . 


Pi  (bars) 


(bars) 


.4000E-02 

.  1996E  +  03 

.4987  E+0  5 

.  3979E  +  00 

. S000E-02 

.  4079E  +  03 

.  5169E  +  05 

.  39  59E  +  00 

. 1 200E-01 

. 62  80E  +  03 

.  5452E  +  05 

. 3938E+00 

. 1 600E-0 1 

.  86  1  3  E  +  0  3 

.  5748E  +  05 

.  3917E  +  00 

. 2000E-01 

.  1  108E  +  04 

.  6059E  +  05 

. 3897E+00 

. 2400E-01 

.  1  366E  +  04 

.  6  3  1  4  E  +  0  5 

. 3876E+00 

.  2800E-0 1 

. 1635E+04 

.  6  5  56E  +  05 

.  38  56E  +  00 

.  3200E-0 1 

. 1925E+04 

.  7024E+05 

.  3835E+00 

. 3600E-0  1 

.  2240E+04 

•7599E+05 

.  3813E+00 

.  4000E-0  1 

.  2577  E+04 

.  8 1 1 7  E  +  0  5 

.3791 E+00 

. 4400E-0  1 

.  2938E+04 

.8631 E+05 

.  3769E+00 

. 4800E-0  1 

. 3322E+04 

.  9  1  74E+05 

. 3746E+00 

. 5200E-01 

. 3740E+04 

.  99-08E  +  05 

. 3722E+00 

.  5600E-0 1 

. 4 1 94  E  +  04 

.  1074E+06 

.  3699E+00 

. 6000E-0 1 

. 4689  E  +  04 

.  1165E+06 

.  36 7 5E+00 

. 6400E-0 1 

. 5  2  2  9  E  +  04 

.  1266E+06 

.3651 E+00 

. 6800E-0 1 

. 5817  E  +  04 

.  1  375E  +  06 

. 3626E+00 

. 7200E-01 

. 6460E+04 

.  1494E+06 

. 3602E+00 

. 7  600E-0 1 

. 7162E+04 

.  1624E  +  06 

.  357  7E+00 

.  8000E-0 1 

. 7929E+04 

.  1770E+06 

. 3551E+00 

.  8400E-0 1 

.877  4  E  +  04 

.  1938E+06 

. 3526E+00 

.  8800E-0 1 

.97 12E+04 

.2141 E+06 

.  3500E+00 

.  9200E-0 1 

.  1075E  +  05 

. 2352E+06 

.  34  7  4  E  +  00 

.  9600E-0 1 

.  1 185E+05 

. 2507E+06 

.  3448E+00 

. 1000E+00 

.  1302E+05 

. 2642E+06 

.  3422E+00 

.  1 040E  +  00 

.  1426E+05 

. 2786E+06 

. 3395E+00 

.  1  080E+00 

.  1  5  58E  +  05 

.  29  39E+06 

.  3367E+00 

. 1 1 20E+00 

.  1698E+05 

.  3 1 26E+06 

. 3340E+00 

.  1 160E+00 

.  1850E+05 

. 3360E+06 

. 3312E+00 

.  1 200E  +  00 

.  2014E  +  05 

. 3614  E+06 

. 3284E+00 

. L240E+00 

.2191 E  +  0  5 

.  3895E+06 

.  32 56E  +  00 

.  1280E+00 

. 2  386  E  +  0  5 

.  42  54E+06 

.  3227E+00 

.  1 320E  +  00 

.  2600E+05 

.  46  50E+06 

.  3198E+00 

.  1 360E  +  00 

.  2834E  +  05 

.  5072E  +  06 

.  3169E+00 

. 1 400E+00 

.  3090 E +  05 

. 5515E+06 

. 3 1 40E+00 

.  1440E+00 

.  3368E  +  05 

.  59  58E+06 

. 31  10E  +  00 

. 1 480E  +  00 

.  3665E  +  05 

. 6  3  50E  +  06 

. 3080E+00 

. 1 520E+00 

.  3984E  +  05 

. 6773E+06 

. 30  50E+00 

.  1  560E  +  00 

.  4326E  +  05 

. 7231 E+06 

.  3019E  +  00 

.  1  600E  +  00 

.  4700E  +  05 

.  7880E  +  06 

.  2988E  +  00 

. 1640E+00 

.5111 E+0  5 

.  8607  E+06 

.  2957E  +  00 

. 1 680E+00 

.  5562E  +  05 

.9401 E+06 

.  2926E  +  00 

. 1 720E+00 

.  60  56E  +  05 

.  1 0  2  5  E  +  0  7 

.  2894E  +  00 

. 1 760E+00 

.  6  5  9  7  E  +  0  5 

. 1 1 1 7 E+0 7 

.  286  2 E+00 

.  1 800  E +  00 

.  7 1 88 E+0 5 

. 1 2 1 4  E+0  7 

. 2830E+00 

. 1 3 40 E+00 

.  78 34E+05 

. 1321 E+0 7 

. 2 79 7 E+00 

. 1 880E+00 

.854  1 E  +  0  5 

. 1 439E+07 

.  2 764 E  +  00 

. 1 920E+00 

. 93 1 2 E+0 3 

. 1 5ft 2 E+0 7 

.2731 E+00 

.  1  9  ft  0  E  +  0  <  j 

.  1 1 )  i  3  E  +  0  ft 

.  1  ft 4 1 E  +  0 7 

.  2  ft 9  7  E  +  00 

. 2000E+00 

.  1  0  9  5  E  +  0  6 

.  1  ft  4  3  E  +  0  7 

. 2ft ft  3 E  +  00 

B.2  List  of  Sample  Problem  Output 


APPENDIX  C 


UNDRAINED  BEHAVIOR  OF  FULLY  COUPLED  MODEL 
IN  HYDROSTATIC  COMPRESSION 

The  computer  program  ISOCP,  listed  in  subsection  C.l,  was  input  from 
TAPE5  and  TAPE7.  TAPE7  contains  the  water  modulus  data  described  in  Table 
5.1.  TAPE5  contains  the  initial  porosity  and  the  skeleton  effective  mean 
pressure  vs.  effective  volume  strain  response.  The  compressibility  of  the 
solid  grains  from  Section  5.2.2  is  built  into  subroutine  BULKG  in  the  tabular 
form. 

DESCRIPTION  OF  INPUT  FILES 
TAPE7  -  See  Appendix  A  (TAPE6) 

TAPE5 

Card  1 

POR,  NPOINT,  NDIV,  EMAX  (free  format) 

POR  *  Initial  porositiy 

NPOINT  =  Number  of  effective  volume  strain/skeleton  bulk  modulus  pairs 
NDIV  =  Total  number  of  steps 

EMAX  *  Maximum  total  strain  at  which  calculation  terminates 

Card  2 

NPOINT  cards  with  free  format  for  each  card. 

Note  that  p}  is  in  terms  of  bars. 

en»  Pn 

The  output  is  contained  in  TAPE6.  TAPE6  lists  total  mean  pressure  (p-j), 
undrained  bulk  modulus  (Kf-j),  effective  mean  pressure  (p'-j),  pore  water 
pressure  ( tt , ) ,  and  current  porosity  (n,)  as  functions  of  total  volume  strain 


el'  Pi 

e$.  p$ 


non 


C.l  List  of  Program  ISOCP 


-T\7X 

*rILES<0. 3) 

PROGRAM  ISOCP 
C 

C  REVISION:  October  10,  19S5 
C  REVISION:  October  11,  1985 
C  REVISION:  October  23,  1985 
C  REVISION:  February  28,  1986 

C  REVISION:  July  28,  1986  (changed  lines  95  and  96) 
C 

COMMON/ WATER/PP  <  300 ) , BM ( 300 ) 

COMMON/SKTON/RR ( 300) , CM ( 300 ) 

INTEGER  NAM1 (6) , NAM2 (6) ,  NAM3(6) 


Read  bulk  modulus  of  water  as  a  function  of  pressure. 

WRITE ( 1, *) 1  ’ 

WRITE( 1, *) ' The  PRESSURE-BULK  MODULUS  file  has  #  of  data  oairs’ 
WRITE (1,*)’  at  the  top  with  pairs  in  bars  1 
WRITE (1,*)’ The  STRAIN-STRESS  file  has  INITIAL  POROSITY,  *  of  » 
WRITE (1,*)’  data  pairs,  •  of  divi.,  and  max  strain  at  top,’ 

WRITE! 1, *) ’  with  pairs  of  STRAIN  not  in  %  and  STRESS  (bars)’ 

WRITE ( 1, *) 1  » 

WRITE (1,*)’**N0TE:  STRAIN-STRESS  file  must  begin  with  zero**’ 
WRITE ( 1, *) ’  * 

WRITE< 1 ) ’ Tvoe  INPUT  file  with  PRESSURE-BULK  MODULUS  oairs  • 

READ (1,10)  NAM1 
10  FORMAT (6A2) 

WRITE(l)1  Type  INPUT  file  with  STRAIN-STRESS  Dairs  » 

READ (1,10)  NAM2 
OPEN  (7,  FILE=*NAM1 ) 

WRITE (l)1  Type  OUTPUT  file  ’ 

READ (1,10)  NAM3 

WRITE(1,*)’  ’ 

WRITE! 1) 1  Type  case  A, B  or  C  ’ 

READ (1,30)  IANS 
30  FORMAT (Al) 

C 

CPEN(6.FILE=NAM3) 

READ (7.*)  NWATER 
DC  100  !=1, NWATER 
100  READ (7,  *)  PPd).BM(I) 

CLOSE (7) 


C  Rsac  initial  oorositv  and  4  of  data  oairs  in  5~RAIN-3~RE33  curve 
C  and  #  of  divisions  and  maximum  strain  to  calculate 

C 

0?EN(5,FILE=NAM2) 

READ (5.*)  POR,  NPOINT, NDIV. EMAX 
DO  120  1*1, NPOINT 
120  READ (5,  *)RR(I),CM(I) 

CLOSE (5) 


i 

s 

I 

V. 

V. 

•  w 

I 

Yfc» 

* 

.  k  I 

§ 

* 
■j 

£ 
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C  Set  initial  conditions 
C 

VO  =  1.0 
PORI  =  POR 
STRN  =  0.0 
EE  =  0.0 
P  =  0.0 
PE  =  0.0 
PF  =  0.  0 
NFIRST  =  0 
KK  »  1 
C 

OPEN (6, FILE=N0M3) 

U 

C  Steo-by-steD  calculations 
C 

150  IF (NFIRST. EQ. 0)  GOTO  £00 
K  =  K  +  1 

IF (K. EQ. NDIV)  GOTO  200 
GOTO  300 
200  CONTINUE 
K  =  0 
NFIRST  =  1 
KK  =  KK  +  1 

DDTRN  =  (RR<KK) -RR (KK-1 ) ) /NDIV 
300  CONTINUE 
C 

C  Calculate  skeleton  bulk  modulus 
C 

COLL  CONMS (EE,  BKS) 

C 

C  Calculate  grain  bulk  modulus 
C 

COLL  8ULKG (PF, PE, POR, BKG,  IONS) 

C 

C  Calculate  water  bulk  modulus 
C 

COLL  BULKW  <PF,  BKW) 

C 

C  Calculate  undrained  bulk  modulus 
C 

00  *  (1. -PORI) /(l. -POR) 

BKF  =  BKS+  <BKG-OP*BKS) / ( 1.  +PORI*BKG*(BKG-BKW) / 
#  <BKW* <BKG-flfl*BKS) ) ) 

C 

C  Calculate  total  strain  increment 

U 

DSTRN  =  DDTRN* (BKG-BKS) /(BKG-3KF) 

C 

C  Calculate  oressure  increments 

L, 

DP  =  BKF*DSTRN 

DPF  =  DSTRN* <BKF-BKS> / ( 1 . -BKS/BKG) 

DPE  =  DP-DPF 
C 

C  Uodate  oressures 
C 

P  =  P+DP 
PF  »  PF+DPF 
PE  *  PE+DPE  133 
C 


C  Uodate  strain,  volume  of  water  and  oorositv 

n 

EE  =  EE+DDTRN 

STRNO  =  STRN 

PORO  =  POR 

STRN  =  STRN  +DSTRN 

DVW  =  PORO* (1. -STRNO) -PORI*DPF/BKW 

POR  =  DVW/U.-STRN) 

C 

C  Write: 

C  Total  mean  pressure  (bars),  (P) 

C  Undrained  bulk  modulus  (bars;,  (BKF) 

C  Effective  mean  pressure  (bars),  (PE) 

C  Pore  water  oressure  (PF) 

C  and  porosity  (POR) 

C  as  a  function  of  strain  (%),  (STRN) 

C 

WRITE (6, £001 >  STRN# 100,  P, BKF, PE, PF, POR 
£001  FORMAT (6E1£. 4) 

IF (STRN. GT.  EMAX)  GOTO  500 
GOTO  150 
500  CONTINUE 
CLOSE (6) 

STOP 

END 

C 

C*********************** ##****##*#*#***#*#**#**** 

c 

SUBROUTINE  BULKG (PF,  PE,  POR, BKG, IANS) 

C 

C  Assume  constant 
C 

IF (IANS.NE. 1HA)  THEN 
p  =  PF+PE/ (1. -POR) 

IF(P.LE. 1363. )  BKG  =  3448£7. 

IF(P.GT. 1363. )  BKG  =  £53.  *  P 
END  IF 

IFdANS.EQ.  1HB)  THEN 

IF(BKG. GT. 688000. >  BKG  =  688000. 

END  IF 

IFdANS.EQ.  1HA)  BKG  =»  413793.  !  In  bars 

RETURN 

END 


SUBROUTINE  BULKW(PF,  BKW) 

C 

CCMMCN/WATER/-P  ( 200 ) .  B.M  ( 300  > 

C 

I  =  1 

100  CONTINUE 

IF(PF. GE. PP ( I) .  AND. PF. LE. PP(I  +  1 ) )  GOTO  £00 
I  =  1  +  1 
GOTO  100 
£00  CONTINUE 

BKW  *  BM(  I)  + (BM (1+1) -BM ( I) ) #<PF-PP ( I) ) / (PP ( 1+1 ) -PP (I) ) 
RETURN  ... 

END  134 


C.2  SAMPLE  PROBLEMS 


Two  sample  problems  were  prepared  to  illustrate  the  use  of  ISOCP  in  unce¬ 
mented  and  cemented  porous  media. 


C.2. 1  Beach  Sand 


TAPE5  contains  the  input  properties  of  the  uncemented  beach  sand  skele¬ 
ton  expressed  in  a  list  of  effective  volume  strain-effective  mean  pressure 
pairs. 


TAPE5 


0.4  15  50  .200 

0.0  0.0 

.034  91.65 

.062  167.13 

.091  245.3 

.115  310. 

.161  517. 

.187  676. 

.216  976. 

.235  1228. 

.249  1503. 

.264  1862. 

.277  2324. 

.288  2848. 

.298  3503. 

.301  3793. 


TAPE6  lists  the  output  data;  €j  (%),  p^  (bars),  Kf-j  (bars), 
p'i  (bars),  jr-j  (bars),  and  n-j. 


List  of  Output  File  Tape  6 


ri 

(%)  (bars) 


. 1588E+00  .  8231E+02 
. 31 78E+00  . 1S54E+03 
. 4775E+00  . 2505E+03 
. S377E+00  . 3378E+03 
. 7986E+00  . 4273E+03 
. 9602E+00  . 5 1 92E+03 
. 1 122E+01  . 6136E+03 
. 1 286E+0 1  .71 05E+03 
. 1449E+01  . 8101E+03 
. 1614E+01  .9125E+03 
. 1779E+01  . 1018E+04 
. 1 946E+0 1  .11 26E+04 
. 21 13E+01  . 1237E+04 
.  2281E-H31  . 1351E+04 
.2449E+01  . 1466E+04 
. 2615E+01  . 1584E+04 
. 2779E+01  . 1703E+04 
. 2942E+01  . 1Q26E+04 
. 3104E+01  ‘  .  1952E+04 
. 3265E+01  . 2083E+04 
. 3425E+01  . 2217E+04 
. 35S5E+01  . 2354E+04 
. 3743E+01  . 2494E+04 
. 3901E+01  . 2637E+04 
. 4058E+01  . 27Q3E+04 
. 4 1 86E+0 1  . 2906E+04 
. 4315E+01  . 3032E+04 
. 4443E+01  . 3159E+04 
. 4570E+01  . 3289E+04 
. 4S98E+0 1  . 3423E+04 
. 4825E+01  . 3560E+04 
. 4952E+0 1  .3701E+04 
. 5079E+01  . 3846E+04 
. 5205E+01  . 3994E+04 
. 5332E+01  .41462+04 
.  5458E+0 1  .  <*302E+04 
. 5584E+01  . 4463E+04 
. 5711E+01  . 4623E+04 
.53372+01  .47972+0“ 
. 5962E+01  . 4972E+04 
. 6083E+01  .51512+04 
. 6214E+01  . 5334E+04 
. 6339E+01  . 5523E+04 
. 6465E+01  . 57 17E+04 


Kfi 

p'i 

(bars) 

(bars) 

. 5183E+05 

. 3666E+01 

. 5223E+05 

. 7332E+01 

•  5jwvjE+05 

. 1 100E+02 

. 5447E+05 

. 1466E+02 

. 5565E+05 

. 1833E+02 

. 5687E+05 

. 2200E+02 

. 5813E+05 

. 2566E+02 

. 5944E+05 

. 2933E+02 

. 6080E+05 

. 3299E+02 

. 6221E+05 

. 3S66E+02 

. 6367E+05 

. 4033E+02 

. 6519E+05 

. 4399E+02 

. 6640E+05 

. 4786E+02 

. 6753E+05 

. 5132E+02 

. aaaiE+05 

. 5499E+02 

. 7068E+05 

. 5866E+02 

. 7271E+05 

. 6232E+02 

. 7539E+05 

. 6599E+02 

. 7814E+05 

. S965E+02 

. 8095E+05 

. 7332E+02 

. 83782+05 

. 7S99E+02 

. 8607E+05 

. 8065E+02 

. 8839E+05 

. 8432E+02 

. 9075E+05 

. 8798E+02 

. 93 1 3E+05 

.91 85E+02 

. 9556E+05 

. 94S7E+02 

. 9759E+05 

. 9769E+02 

. 9966E+05 

.  1007E+03 

.  1021E+06 

. 1037E+03 

. 1049E+06 

.  1067E+03 

. 1079E+06 

. 1 098E+03 

. 1 109E+06 

. 1 128E+03 

. 1 139E+06 

.11 58E+03 

. 1 171E+06 

. 1 1 68E+03 

. 1 203E+0G 

. 12132+03 

. 1237(2+06 

.  1243E+0-3 

. 1272E+06 

. 1 2792+03 

. 130SE+06 

. 1303E+03 

.  13452  +  0*3 

. 13332+03 

. 1383E+06 

. 1362E+03 

■  1  4c!  +06 

.  1  4002+03 

. 1 463E+06 

.  1  430E+03 

. 1504E+06 

. 1460E+03 

. 1547E+06 

. 1490E+03 

7T  . 

1 

ni 

(bars) 

. 78S5E+02 

. 3992E+00 

. 1580E+03 

. 3984E+00 

. 23952+03 

. 33782+00 

. 323 1 E+03 

. 39S6E+00 

. 4090E+03 

. 3959E+00 

. 4972E+03 

. 3951E+00 

. 5873E+03 

. 39432+00 

. 6S12E+03 

. 3935E+00 

. 7771 E+03 

. 3928E+00 

. 8753E+03 

. 3918E+00 

. 9776E+03 

. 3310E+00 

. 1082E+04 

. 3901E+00 

. 1 190E+04 

. 3893E+00 

. 1299E+04 

. 3885E+00 

. 1411E+04 

. 3876E+00 

. 1525E+04 

. 3868E+00 

. 1641E+04 

. 3859E+00 

. 1760E+04 

. 385 1 E+00 

. 1383E+04 

. 3842E+00 

. 2010E+04 

•  o8^fwC.  +  00 

. 2140E+04 

. 33252+00 

. 2274E+04 

. 38 1 6E+00 

. 2410E+04 

. 38072+00 

. 2549E+04 

. 3 798E+00 

. 2692E+04 

. 3730E+00 

. 2812E+04 

. 3782E+00 

. 2934E+04 

. 3775E+00 

. 3053E+04 

. 37G3E+00 

.31 062+04 

. 37S1E+00 

. 33 1 6E+04 

.  ^.754-E+00 

. 3451E+04 

. 3746E+00 

. 3583E+04 

. 3736E+00 

. 3730E+04 

■  <i7j,  1  c.  +  00 

. 3875E+04 

. 37 2 -E+00 

. 4024E+04 

■  O  t  1  O  —  +  0  0 

.41 7 3E +04 

. 370 ”2+00 

. 43352+04 

.  3  <  9  1  -.  +  0  0 

.  44'=“=r+04 

.  389-3  h09 

.  42.o42+0" 

. 33322-03 

.  “Q35E+04 

. 38722+00 

. 501 12+04 

.  327  1 2-*-00 

.519  ‘.2  +  04 

. 36642+00 

. 5377E+04 

. 36562+00 

. 55G8E+04 

. 36432+00 

6590E+01 

.  5917E+04 

.  1590E+06 

6715E+01 

. 6121E+04 

-  i.  O  uoC  7  V-'O 

634 1 E  +  0 1 

.  S332E+04 

.  1  S3 1 E+06 

636GE+01 

.  6546E+0.4 

. 1729E+06 

7091E+01 

. 6771E+04 

. 1 779E+06 

7216E+01 

. 7000E+04 

. 1Q30E+0S 

7345E+01 

. 7243E+04 

.  18S3E+06 

7475E+01 

. 7494E+04 

. 1941E+06 

7604E+01 

. 7753E+04 

. 2003E+06 

7733E+01 

. 8020E+04 

. 20S7E+06 

7863E+01 

. S296E+04 

.21 33E+06 

7992E+01 

. 8581E+04 

. 2204E+06 

8121E+01 

. 8876E+04 

. 2282E+0S 

8250E+01 

. 9182E+04 

. 2363E+0S 

8380E+01 

. 949SE+04 

. 2447E+0S 

S509E+01 

. 9827E+04 

. 2543E+06 

8639E+01 

. 1017E+05 

. 2644E+06 

8768E+01 

. 1053E+05 

. 2749E+06 

8898E+01 

. 1089E+05 

. 2808E+0S 

9027E+01 

. 1126E+05 

. 2Q63E+0S 

9156E+01 

. 1 164E+05 

. 2918E+06 

9285E+01 

. 1202E+05 

. 2975E+06 

9413E+01 

. 1241E+05 

. 3033E+06 

9542E+01 

. 1281E+05 

. 3092E+06 

9670E+01 

. 1321E+05 

. 3151E+06 

9798E+01 

. 1362E+05 

. 3212E+06 

9926E+01 

.  1404E+05 

. 3274E+06 

1005E+02 

. 1447E+05 

. 3336E+0S 

1 018E+02 

.  1490E  +  05 

. 3400E+06 

1031E+02 

. 1534E+05 

. 3465E+06 

1 044E+02 

.  1579E+05 

. 3537E+06 

1054E+02 

. 1610E+05 

. 3629E +06 

1 065E+02 

. 1657E+05 

. 3707E+06 

1075E+02 

. 1697E+05 

. 37 Q7E+0S 

1 086E+02 

.  1 737E+05 

. 38S8E+0G 

1096E+02 

. 1779E+05 

. 3951E+06 

1 107E+02 

. 1821E+05 

. 4036E+06 

11 17E+02 

. 1065E+05 

. 4123E+06 

1 128E+02 

.  1 909E+05 

. 4212E+06 

1 138E+8S 

. 1355E+05 

. 4302E+06 

1 149E+02 

. 200 1  E+05 

.  4395E-*-0S 

1 159E+02 

. 2048E+05 

. 4489E+06 

1  1  70E  -*-02 

. 2096E+05 

. 4595E+0S 

1 131E+02 

. 2146E+05 

. 47 1 5E+06 

1 191E+02 

. 2197E+05 

. 43332+06 

1202E+02 

. 2249E+05 

. 4965E+06 

.  2303E-105 

.  3095E-*-0S 

a  2  2  w  E  +  0  2 

.  235SE+05 

.  5i2I23E  +06 

1 233E+02 

. 24 1 4E  +  05 

. 53S5E+0S 

1244E+02 

. 2473E+05 

. 5506E+06 

1254E+02 

. 2532E+05 

. 5S50E+06 

1265E+02 

. 2593E+05 

. 579QE+06 

1 320E-I-03 

. 57G5E+04 

.  324 1 E +00 

1551 E+03 

. 59S6E+04 

.  '2  S3  EE +00 

1 53 1 E+03 

. 6 1 74E+0- 

1 S  1  1  sl+03 

. &367E+04 

.  3&16Z+00 

1641E+03 

. 6S07E+04 

.  3610E  +  00 

1S71E+03 

. 6S33E+04 

. 3602E+00 

1703E+03 

. 7073E+04 

.  3594E+00 

1734E+03 

. 732 1 E+04 

. 358GE+00 

1765E+03 

. 7577E+04 

.  3578E+00 

1 796E+03 

. 7841E+04 

. 3570E+00 

1328E+03 

. 31 13E+04 

.  3562E+00 

1859E+03 

. 8395E+04 

. 3554E+00 

1 890E+03 

. 86Q7E+04 

.  3545E+00 

1921E+03 

. 3990E+04 

.  3537E+00 

1 953E+03 

. 9303E+04 

.  3529E+00 

19S4E+03 

. 9629E+04 

.  352 1 E+00 

2015E+03 

. 99G8E+04 

.  35 1 2E+00 

2047E+03 

. 1032E+05 

. 3504E+00 

2078E+03 

.  10GQE+05 

.  3496E+00 

2109E+03 

.  1 105E+05 

. 3487E+00 

2140E+03 

. 1 1 42E+05 

.  3479E+00 

2172E+03 

. 1 1 80E+05 

.  3471E+00 

2203E+03 

. 1219E+05 

.  34G2E+00 

2234E+03 

. 1258E+05 

.  3454E+00 

2265E+03 

. 1298E+05 

.  3445E+00 

2297E+03  ‘ 

. 1333E+05 

. 3437E+00 

2328E+03 

. 1 38 1 E+05 

.  3428E+00 

2359E+03 

. 1423E+05 

.  3420E+00 

2390E+03 

.  14G6E+05 

.  341 1E+00 

2422E+03 

.  1510E+05 

.  3402E+00 

2453E+03 

.  1555E+05 

.  3394E+00 

2479E+03 

. 1593E+05 

.  3387E+00 

2505E+03 

. 1 632E+05 

.  3380E+00 

253 IE +03 

. 1671 E+05 

. 3372E+00 

2557E+03 

. 1712E+05 

.  33G5E+00 

2582E+03 

. 1753E+05 

.  3358E+00 

2608E+03 

. 1 795E+05 

.  3351E+00 

2634E+03 

. 1839E+05 

. 3343E+00 

2660E+03 

.  1883E+05 

■  3336E+00 

2S8GE+03 

. 1923E+05 

.  3329E+00 

27 1 2E+03 

.  1974E  +  05 

•  w  W  c!  w'  -  - 

27332+03 

. 202: E+05 

,  3  -J  "l  -^1."  7- 

27G4E+03 

. 20692-05 

.  3307E-'- ?0 

2789E+03 

. 21 l 22+05 

.  *.'■  Ej  V?  H?  -  "I*  '.1  K? 

23 15c +03 

. 21 S9E+05 

.  2 272 2 -<-00 

284; E+03 

.  ~ 

-  7  -  t  .  ~  n 

l^tiO  '  ~+0>j 

«  w  t  t  3.  * "  t  v 

23932+03 

"  ~  r-  .  rr 

■  l—  i —  .  w  ■*.  _• 

•  C.  •  V.'  +  W.  V' 

2913 E+03 

. 23352+05 

.  +  o  0 

2945E+03 

. 2443E+05 

. 3255E+00 

297 1 E+03 

. 2502E+05 

.  3243E+00 

2996E+03 

. 2563E+05 

.  3240E+00 

W'  w.r 


t 


P 

£ 

l 


0 


■ui pw  u  L'vw  u wwwv  ■  rro  ■  c 


.  1275E+02 

.  2656E+05 

. 5952E+0G 

. 3022E+03 

. 2626E  +05 

.  34C.C.C  +  00 

,  1  286E+02 

. 2720E+0S 

-  61 10E+0S 

. 3043E+03 

. 2S90E+05 

.  3225E+00  -\J 

..1236E+02 

. 2737E+05 

. SE73E+06 

. 307 4E+03 

. 2756E+05 

.  32: 1 3E  +  00 

.  1307E+02 

. 2S55E+05 

. 6439E+0S 

. 3100E+C3 

.  £32^-2+05 

.  3£l0E-*00  D 

.  1 3273+02 

. 2983E+05 

. 66 1 0E+06 

. 3 1 50E+03 

. 2357E+05 

.  3195E+0O 

.  1348E+02 

. 3129E+05 

. 6962E+06 

. 3232E+03 

. 3097E+05 

.316 1E+00  0\ 

.  1368E+02 

. 3276E+05 

. 7250E+06 

. 33 1 5E+03 

. 3243E+05 

.31 66E+00  .'0 

L 

.  1388E+02 

. 3428E+05 

. 7520E+06 

. 3398E+03 

. 3334E+05 

.  3151E+00 

.  1408E+02 

.  3586E+05 

. 7798E+06 

. 3481E+03 

. 3551E+05 

.  3 1 36E+00  ia 

.  1428E+02 

. 3749E+05 

. 80S7E+06 

. 3564E+03 

. 37 1 3E+05 

. 3l2£E+00  M 

.  1449E+02 

. 3318E+05 

. 83S7E+06 

. 3646E+03 

. 383 1E+05 

.3107E+00 

.  1469E+02 

. 4033E+05 

. 8637E+06 

. 3729E+03 

. 4056E+05 

. 309£E+00  W 

»  r 

.  1483E+02 

. 4276E+05 

. 9055E+06 

. 38 1 2E+03 

. 423SE+05 

.  3076E+00  y\ 

.  1509E+02 

. 4467E+05 

. 9510E+0S 

. 3S95E+03 

. 4428E+05 

.3061E+00  Krl 

.  1523E+02 

. 4669E+05 

. 9987E+06 

. 3978E+03 

. 4629E+05 

. 3046o+00  ^ 

.  1549E+02 

. 4Q80E+05 

. 1043E+07 

. 4060E+03 

. 4840E+05 

. 3031E+00  B 

.  1570E+02 

. 5103E+05 

. 1102E+07 

. 4143E+03 

. 5061E+05 

. 3015E+00  ft 

.  1590E+02 

. 5336E+05 

. 1157E+07 

. 4226E+03 

. 5294E+05 

. 3000E+00  & 

■Ti 

.  1610E+02 

. 5582E+05 

. 1214E+07 

. 4309E+03 

. 5539E+05 

. £984E+00  % 

.  1630E+02 

. 5Q39E+05 

. 1274E+07 

. 4332E+03 

. 5795E+05 

.  £969E+00 

.  1650E+02 

. 61 09E+05 

. 1 337E+07 

. 4474E+03 

. 6065E+05 

. £953E+00  g 

.  1671E+02 

. 6333E+05 

. 1402E+07 

. 4557E+03 

. 6347E+05 

. S937E+00  B 

.  1691E+02 

. 6690E+05 

. 1469E+07 

. 4640E+03 

. 6644E+05 

.  2921E+00  5v; 

.  1711E+02 

. 7001E+05 

. 1539E+07 

. 4723E+03 

. 6954E+05 

.  £905E+00  JS 

. 1731E+02 

. 7327E+05 

. 1612E+07 

. 4806E+03 

. 7279E+05 

. 2889E+00  w 

.  1751E+02 

. 7670E+05 

. 1691E+07 

. 4888E+03 

. 7621E+05 

. £873E+00  ft 

.  1 772E+02 

. 802SE+05 

- 1773E+07 

. 4971E+03 

. 7979E+05 

. 2357E+00  | 

.  1792E+02 

. 8405E+05 

. 1860E+07 

.  5054E+03 

. 8354E +05 

. £84lE+00  B 

. 1812E+02 

. 8799E+05 

.  1946E+07 

.  5137E+03 

. 8748E+05 

.  £324c+00 

. 1Q24E+02 

. 9032E+05 

. 2037E+07 

.51 S4E+03 

. 8980E+05 

.  £8 1  5E+00 

• 1835E+02 

. 3271E+05 

. 2092E+07 

. 5247E+03 

. 9219E+05 

.  £306E+00  .7 

.  ^ 

.  1847E+02 

. 95 16E+05 

- 2141E+07 

. 53 1 1E+03 

. 9463E+05 

. E79GE+00  A 

, 1858E+02 

. 9767E+05 

. 2191E+07 

. 5374E+03 

. 971 3E+05 

.  2787E+00  '  Jj 

. 1869E+02 

. 1002E+06 

. 2243E+07 

. 5438E+03 

. 9969E+05 

. 2778E+00  J 

. 1Q81E+02 

. 1029E+06 

. 2235E+07 

. 5502E+03 

. 1023E+06 

. 2763E+00  ^ 

. 1S92E+02 

. 1055E+06 

. 2327E+07 

. 55S5E+03 

.  1 050E+06 

. E759E+00  ft 

. 1304E+02 

. 1032E+06 

. 2356E+07 

. 5629E+03 

.  1 076E+06 

. 2749E+00  £ 

. 1915E+02 

. 1109E+06 

. 2385E+07 

. 5692E+03 

.11 03E+06 

. E740E+00  ft 

V  i 

. 1926E+02 

. 1137E+06 

. 2415E+07 

. 5756E+03 

.  U31E+06 

. 2730E+00  g 

. 1938E+02 

. 1 164E+06 

. 2444E+07 

. 5820E+03 

.  1 159E+06 

. 2721E+00  " 

. 1 943E+02 

.  1 192E+06 

. 2475E+07 

. 53Q3E+03 

.  1 187E+06 

.  27 1  1 2  +  00 

. 1960E+02 

. 1221E+06 

. 2505E+07 

. 594TE+03 

.  12 152+06 

.  .170.12  +  00  b 

_ _  In 

. 1972E+02 

.  1 250E+06 

. 253£E>07 

. 60 1 0E  +  03 

.  1 244E  +  06 

.  is  J4-  +  30 

. 1983E+02 

.  1279E+06 

. 2567E+07 

.  607 +E -i-03 

.  .  2  7 1 E  +■  C  6 

.  .i  is  cZ'i-00  r; 

. 1 994E+02 

.  130SE+06 

. 2593E+07 

.61  33c.  +  03 

*.13 02E+06 

. 2006E+02 

«  T  "Q  fT  4.1 

,  ,  iwoC  +  Vb 

-  1630E+07 

•  *2  1 1  *  — ,  ■+■  /  2 

.17  3  r  <1 

•  ■  a 

> 


Pressure  (bars) 


Effective  Pressur 


C.2.2  Cemented  Coral 


TAPE5  contains  the  input  properties  of  the  cemented  coral  skeleton 
expressed  in  a  table  of  effective  volume  strain-effective  mean  pressure  pairs 


TAPE  5 


0.41 

13 

0.0 

0.0 

3.48E-3 

255.96 

4.E-2 

288.35 

7.6E-2 

337.33 

.132 

415.54 

.18 

496.12 

.206 

569.59 

.219 

616.99 

.241 

724.43 

.262 

854.78 

.276 

991.45 

.284 

1079.1 

.287 

1132.9 

TAPE6  lists  the  output  data  in  the  same  format  as  described  in  Section  C.2.1. 


List  of  Output  File  Tape  6 


£i 

Pi 

(0,o) 

(bars) 

.  1 573E-01 

.  1647E+02 

.  3145E-01 

. 3293E+02 

.  4718E-01 

. 4940E+02 

.  6290E-01 

'.  65S6E+02 

. 7Q63E-01 

. Q233E+02 

. 9436E-01 

. 9880E+02 

. 1 101E+00 

. 1 1 53E+03 

. 1258E+00 

. 13 17E+03 

. 1415E+00 

. 1482E+03 

. 1573E+00 

. 1847E+03 

. 1730E+00 

. 1812E+03 

. 1887E+00 

. 1977E+03 

. 2045E+00 

.21 42E+03 

. 2202E+00 

. 2307E+03 

. 23S0E+00 

. 2473E+03 

. 2517E+00 

. 2638E+03 

. 2675E+00 

. 2S04E+03 

. 2832E+00 

. 2970E+03 

. 2990E+00 

.31 36E+03 

. 3 1 48E+00 

. 3302E+03 

. 3306E+00 

. 3468E+03 

. 3463E+00 

. 3635E+03 

. 3621E+00 

. 380 1 E+03 

. 3779E+00 

. 3968E+03 

. 3937E+00 

. 4 1 35E+03 

. 5646E+00 

. 5006E+03 

. 7363E+00 

. 5901E+03 

. 9087E+00 

. 682 IE +03 

. 1082E+01 

. 7767E+03 

. 1256E+01 

. 8741E+03 

. 1431E+01 

. 9743E+03 

. 1806E+01 

. 1078E+04 

. 1783E+01 

.  1 184E+04 

. 19S0E+01 

.  1294E+04 

. 2 1 36E+0 1 

.  1406E+04 

. 2310E+01 

.  1520E+04 

. 2433E+0 1 

.  1 636E+-04 

. 2655E+01 

.  1 754E+04 

.  2825E+0  i 

.  1874E  +  04 

. 2995E+0 1 

.  1  '99QE+04 

.  3 1 64E  +  0 1 

.21 2SE+04 

•  333eE  +0 1 

. 225SE+04 

. 3500E+01 

.  2395E+04 

. 3668E+01 

. 2534E+04 

. 3834E+01 

.  2677E+04 

. 4000E+0 1 

. 2824E+04 

. 4166E+01 

. 2973E+04 

. 4331E+01 

. 3 1 27E+04 

ipwvwt  iwj*  mm 

Kfi 

P‘i 

(bars) 

(bars) 

. 1047E+06 

. 1024E+02 

. 1047E+06 

. 2048E+02 

.  1047E+06 

. 3072E+02 

. 1047E+06 

. 4095E+02 

.  1047E+06 

. 51 19E+02 

. 1047E+06 

.61 43E+02 

.  1047E  +  06 

. 7167E+02 

. 1047E+06 

. 3191E+02 

. 1047E+06 

. 9215E+02 

. 1048E+06 

. 1024E+03 

. 1048E+06 

.11 26E+03 

. 1049E+06 

. 1229E+03 

. 1049E+06 

. 1331E+03 

. 1050E+06 

. 1433E+03 

. 1051E+06 

.  1536E+03 

. 1051E+06 

. 1638E+03 

. 1052E+06 

. 1741 E+03 

. 1052E+06 

. 1843E+03 

. 1053E+06 

. 1945E+03 

. 1054E+0& 

. 2048E+03 

. 1054E+06 

. 2150E+03 

. 1055E+06 

. 2252E+03 

. 1055E+06 

. 2355E+03 

. 1056E+0& 

. 2457E+03 

.  1057E+06 

. 2560E+03 

. 5094E+05 

. 2573E+03 

. 52 13E+05 

. 2586E+03 

. 5337E+05 

. 259SE+03 

. 5465E+05 

. 261 1 E+03 

. 5598E+05 

. 2624E+03 

. 5735E+05 

. 2637E+03 

.  5Q79E+05 

. 2650E+03 

. 6027E+05 

. 2663E+03 

. 6182E+05 

. 2676 E+03 

. &334E+05 

. 2639E+03 

. S551E+05 

. 2702E+03 

. 6718E+05 

.  27 1 5E  +  03 

. 6886E+05 

.  2728E+03 

.  7053E+05 

.  274 IE +  03 

. 7298E+05 

. 2754E+03 

. 7564E+05 

.  2767E+03 

•  /  Q3 1  b.-i”V?5 

. 27S0E+03 

. 81 19E+05 

.  2793E+03 

. 8352E+05 

.  2806E+03 

.  8578E+05 

.  2819E+03 

. 88 10E+05 

. 2832E+03 

. 9045E+05 

. 2845E+03 

. 9286E+05 

. 2858E+03 

143 

IT  . 

n . 

1 

i 

(bars) 

. 6227E+01 

. 4099E+00 

. 1245E+02 

. 4099E+00 

.  1868E+02 

. 4098E+00 

. 249 1 E+02 

. 4096E+00 

.311 4E  +  02 

. 4097E+00 

. 3737E+02 

. 4097E+00 

. 4359E+02 

. 4096E+00 

. 4982E+02 

. 4096E+00 

. 5605E+02 

. 4095E+00 

. 6230E+02 

.  4095E+00 

. 6855E+02 

.  4094E+00 

. 7482E+02 

.  4094E+00 

. 81 10E+02 

.  4093E+00 

. 8740E+02 

.  4093E+00 

. 9370E+02 

.  4092E+00 

. 1000E+03 

.  4092E+00 

. 1064E+03 

.  4091E+00 

. 1 1 27E+03 

.  4091E+00 

.  1 191E+03 

.  4090E+00 

. 1254E+03 

. 4089E+00 

.  1318E  +  03 

.  4039E  +  00 

.  1382E+03 

. 4088E+00 

.  1 446E  *-03 

.  4083E  +  00 

.  151 1E+03 

. 4087E+00 

. 1575E+03 

.  4087E+00 

. 2433E+03 

. 4078E+00 

. 331 5E+03 

. 4069E+00 

. 4222E+03 

. 408 1 E+00 

. 5155E+03 

. 4052E+00 

.  61 16E+03 

. 4043E+00 

.  7 106E+03 

. 4034E+00 

.  8125E+03 

. 4026E+00 

.  9176E+03 

. 4017E+00 

.  1 02SE+04 

. 400SE+00 

.  1 1 37E+04 

. 3999E+00 

. 1250E+04 

3990 E+O® 

.  1365E  +  04 

.  393  IE -'-00 

. 1481E+04 

. 3972E+00 

.  1600E  +  0“ 

T  “  T  '"7  **'' 

‘  7 •  f-  7  A 

T 

.  1349E  +  0-* 

. 33-53-00 

. 19S0E+04 

. 3 935 3 -09 

. 21 15E+04 

«  3  3  L!  3  ci  0 

. 225^E+04 

. 39 1 7E+00 

. 2395E+04 

. 3903E+00 

. 2541E+04 

. 389SE+00 

. 2689E+04 

. 3839E+00 

. 284 lE+04 

. 3S80E+00 

—- < 

1 

> 

k/ 

5 


< 


;5 

>1 


-.1 


•M 


.  4496E+01 
.  46S0E+01 
.  4S££2+0  1 
. 4933E+01 
. 51452+01 
. 5306E+01 
. 5467E+01 
.  5628E+01 
. 57S3E+01 
.  5949E+01 
. 6109E+01 
. 6E70E+01 
. 6430E+01 
. 6590E+01 
. S750E+01 
. 6910E+01 
. 7070E+01 
. 7S30E+01 
. 7389E+01 
. 7549E+01 
. 7709E+01 
. 7868E+01 
. 8028E+01 
. 8188E+01 
. 8347E+01 
. 8507E+01 
.8667E+01 
. 8915E+01 
. 9 1 64E+0 1 
. 9413E+01 
. 9660E+0 1 
. 9907E+01 
. 1015E+02 
. 1040E+0E 
. 1065E+02 
. 1089E+02 
. 1 1 14E+02 
. 1 138E+0£ 
. 1 163E+02 
. 1 1S7E+02 
. 1 £ 1 2E+02 
.  1236E+02' 
. 1 £6 1 E+0£ 
•  1c!S5E+0i£ 
. 13102+02 
.  1  3  3 4 E  +  0  2 
. 13392+02 

. 14082+02 
.  i  438E+02 
. 14572+02 
. 1481E+02 


. 32S4E+04 
.  3445E+04 
.  v.  v  o  0  9  c.  +  04 
. 3779E+04 
.  3954E-1-04 
.41 36E +04 
. 43£3E+04 
. 4517E+04 
. 4713E+04 
. 4925E+04 
. 5140E+04 
. 5362E+04 
. 5592E+04 
.  5030E  +04 
. 6076E+04 
. 6331 E+04 
. 6595E+04 
. 6868E+04 
. 7150E+04 
. 7443E+04 
. 7747E+04 
. 8063E+04 
. 8390E+04 
. 8731E+04 
. 9086E+04 
. 9457E+04 
. 9845E+04 
. 1048E+05 
. 1 1 15E+05 
. 1 135E+05 
. 1257E+05 
. 1 332E+05 
. 1409E+05 
. 1489E+05 
. 1571E+05 
. 1657E+05 
. 1 747E+05 
. 1Q42E+05 
.  1941E+05 
. 2044E+05 
. £ 1 53E+05 
. 22S9E+0 5 
. £3913+05 
. 2521E+05 
. E659E+05 
. 2303E+05 
.  £36,03 -i-05 
.  3 .2-i3i-03 
. 33973+05 
. 347SE+05 
. 3666E+05 
. 3862E+05 


. 9532E+0S 
. 9783E+05 
.  10173  +  06 
. 1052E+06 
. 1 038E+06 
.11 £6E +06 
. 1 1 65E+06 
. 1205E+06 
. l£48E+06 
. 1293E+06 
. 1338E+06 
. 1386E+06 
. 1435E+06 
. 1 486E+06 
. 1 533E+06 
. 1593E+06 
.  1649E+06 
. 1709E+06 
. 1 770E+06 
. 1834E+06 
. 1 903E+06 
. 1977E+06 
. 2053E+06 
. 2134E+06 
. 2226E+06 
. 2322E+06 
. 2426E+06 
. 2543E+06 
. 2712E+06 
. 28  12E+06 
. 2915E+06 
. 3021E+06 
.31 30E+-06 
. 3E44E+06 
. 336 1 E+06 
. 3500E+06 
. 3672E+06 
. 3852E+06 
. 4041 E+06 
. 4239E+06 
. 4449E+06 
. 4715E+06 
. 4396E+06 
. 5294E+06 
.5611 3+06 
. 5950E  +06 
. 63 1 03+06 
.  663.- 3  +0.6 
.  70422+06 
. 7353E+06 
. 7673E+06 
. 80  16E+06 


.  3371  +  +03 
.  2883E+03 
. 2903E+03 
.  £9232+03 
. £3423+03 
. 2962E+03 
. 29S1E+03 
. 3001E+03 
. 302 1E+03 
. 3040E+03 
. 3060E+03 
. 3079E+03 
. 3099E+03 
.31 19E+03 
. 3133E+03 
. 315QE+03 
. 3177E+03 
. 3197E+03 
. 3217E+03 
. 3236E+03 
. 3256E+03 
. 3275E+03 
. 3295E+03 
. 3315E+03 
. 3334E+03 
. 3354E+03 
. 3373E+03 
. 3405E+03 
. 34363+03 
. 3467E+03 
. 3498E+03 
. 3530E+03 
. 3561E+03 
. 3592E+03 
. 3624E+03 
. 3655E+03 
. 3636E+03 
. 3717E+03 
. 3749E+03 
. 3780E+03 
. 38 1 1 E+03 
. 3843E+03 
.  33742-03 

. 39052  +03 
. 33362+03 
. 39662+03 
. 39992+03 
.  *±0  3<.  E  i-0  3 1 
.  40622-03 
.  +03  32+03 
. 4 1 £42+03 
. 4155E+03 


. £997E+04 
. 31562+04 
.  33 1 92  +  04 
. 34862+04 
.  36602  +  04 
.  3840E+04 
.  4025E+04 
.  4£ 1 7E+04 
.  44162+04 
. 4621E+04 
.  .  48342+04 
. 5054E+04 
.  52S2E+04 
. 5513E+04 
.  5763E+04 
. 6015E+04 
.  6£77E+04 
. 6548E+04 
.  6829E+04 
. 7 1 £0E+04 
.  74££E+04 
. 7735E+04 
.  8061E+04 
. Q400E+04 
. 8753E+04 
. 91£2E+04 
. 9508E+04 
. 1014E+05 
. 1081E+05 
. 1150E+05 
•  l£c!£E  +  05 
. 1297E+05 
.  1373E+05 
. 1453E+05 
. 1535E+05 
. 1621E+05 
. 1710E+05 
. 1Q04E+05 
. 1903E+05 
. 2007E+05 
. £1 15E+05 
. ££302+05 
. £3522+05 
. 24322  +05 


. 206-2+05 
.  325 72-05 
.  343  +05 

.  36252+05 
. 38£ lE+05 


.  337 02  +  00 
. 33612+00 
.  33522  +  00 
. 33422+00 
. 33332+00 
. 3324E+00 
. 3814E+00 
. 3805E+00 
. 3795E+00 
. 3786E+00 
. 3776E+00 
. 37  66E+00 
. 3757E+00 
. 3747E+00 
. 37372+00 
. 37£SE+00 
. 37 1 82+00 
. 3708E+00 
. 36982+00 
. 3688E+00 
. 3678E+00 
. 3668E+00 
. 3658E+00 
. 3648E+00 
. 363SE+00 
. 36S8E+00 
. 36 1 8E+00 
. 3S02E+00 
.  35372+00 
. 357 1 2+00 
. 35542+00 
. 3538E+00 
. 3522E+00 
. 3506E+00 
. 3489E+00 
. 3473E+00 
. 34562+00 
. 3440E+00 
. 34232+00 
. 3406E+00 
. 33892+00 
. 33722+00 
. 33552-00 
.  233  '£-+00 
. 33202+00 


.  3 2. 322  + 0  0 

.  3£ 1 42-00 
.31 96E+00 
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1502E+02 

. 403SE+05 

. 8372E+06 

.41 8Q&+03 

1523E+02 

. 4220E+05 

.  8687E+06 

. 4220E+03 

1544E+02 

. 4412E+05 

.91 30E+0S 

. 4252E+03 

1585E+02 

. 4613E+05 

. 9598E+06 

. 4284E+03 

1586E+02 

. 4825E+05 

. 1009E+07 

. 431 7E+03 

1607E+02 

. 5048E+05 

. 106 1E+07 

. 4349E+03 

1 628E+02 

. 5283E+05 

.111 5E+07 

. 4381E+03 

1649E+02 

. 5529E+05 

. 1 171E+07 

. 44 13E+03 

1670E+02 

. 578SE+05 

. 1230E+07 

. 4445E+03 

1692E+02 

. S060E+05 

. 1292E+07 

. 4473E+03 

1 713E+02 

. 6346E+05 

. 1357E+07 

. 4510E+03 

1734E+02 

. SG45E+05 

. 1423E+07 

. 4542E+03 

1 755E+02 

. 6960E+05 

. 1492E+07 

. 4574E+03 

1776E+02 

. 7289E+05 

. 1565E+07 

. 4607E+03 

1797E+02 

. 7635E+05 

. 1642E+07 

. 4639E+03 

1810E+02 

. 7999E+05 

. 1724E+07 

. 4671E+03 

1839E+02 

. 8380E+05 

. 1810E+07 

. 4703E+03 

1860E+02 

. 8780E+05 

. 1896E+07 

. 4736E+03 

1881E+0 2 

. 9198E+05 

. 1986E+07 

. 4768E+03 

1902E+02 

. 9836E+05 

. 2076E+07 

. 4800E+03 

1 923E+02 

. 1009E+06 

. 2164E+07 

. 4Q32E+03 

1944E+02 

. 1057E+06 

. 22S1E+07 

. 4S65E+03 

1 965E+02 

.  1105E+06 

. 2302E+07 

. 4897E+03 

1986E+02 

. 1154E+06 

. 2353E+07 

. 4929E+03 

2007E+02 

.  1205E+06 

. 2406E+07 

. 4961E+03 

.  3996E+05 
. 417SE+05 
. 43S9E+05 
. 4571E+05 
. 4732E+05 
. 5005E+05 
. 5239E-+-05 
. 5485E+05 
. 5743E+05 
. G0 1 5E+05 
. 6301E+05 
. 6600E+05 
. S914E+05 
. 7S43E+05 
. 7539E+05 
. 7952E+05 
. Q333E+05 
. 8732E+05 
. 9151E+05 
. 95S8E+05 
. 1004E+0S 
. 1352E+06 
.  1 100E+06 
.  U49E+06 
.  1E00E+06 


.  3 1 80E-I-00 
. 3165E+00 
. 3 1 49E+00 
. 31 33E+00 
. 31 17E+00 
. 3101E+00 
. 3085E+00 
. 3069E+00 
.  3053E-*-00 
. 3037E+00 
.  3020E+00 
. 3004E+00 
. E987E+00 
. E971E+00 
. 8954E+00 
. 2937E+00 
. E920E+00 
. E903E+00 
. E886E+00 
. 2869E+00 
. 2852E+00 
. E334E+00 
. E317E+00 
. E800E+00 
. 2782E+00 
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APPENDIX  D 


UNDRAINED  BEHAVIOR  OF  FULLY  COUPLED  MODEL 
IN  UNIAXIAL  COMPRESSION 

The  computer  program  KOCP,  listed  in  subsection  D.l,  uses  input  from 
TAPES  5,  7  and  8.  TAPE7  contains  the  water  modulus  data  described  in  Table 
5.1.  TAPE5  contains  the  initial  porosity  and  a  table  of  effective  axial  ske¬ 
leton  stress  as  a  function  of  effective  vertical  strain.  TAPE8  contains  a 
table  of  kQ  vs  effective  axial  strain  pairs.  The  compressibility  of  the  solid 
grains  from  Section  5.2.2  is  built  into  subroutine  BULKG. 

DESCRIPTION  OF  INPUT  FILES 
TAPE7  -  See  Appendix  A  (TAPES) 

TAPE5 
Card  1 

POR,  N POINT,  NDIV,  EMAX  (free  format) 

POR  =  Initial  porosity 

NPOINT  =  Number  of  effective  axial  strain/skeleton  constrained  modulus 
pairs 

NDIV  =  Total  number  of  steps 

EMAX  =  Maximum  total  strain  at  which  calculation  terminates 

Card  2 


£i'  *'*1 

e2'  aa2 


NPOINT  cards  with  free  format  for  each  card. 

Note  that  a' .  is  in  terms  of  bars, 
ai 


e  ’ ,  a' 
n  an 


TAPE8 


Card  1 


NKO  (free  format) 

NKO  =  Number  of  effective  axial  strain/k0  pairs 


pkev.ouspage 
IS  BLANK 


n  n  n 


D.l  List  of  Program  KOCP 


S^ILcS  (2i.  3) 

PROGRAM  KOCP 


C 

C  REVISION; 
C  REVISION; 
C  REVISION; 
C  REVISION; 
C  REVISION; 
C  REVISION; 
C  REVISION; 
C 

c 


October  10,  1985 
October  11,  1985 
October  23,  1985 
October  30,  1985 
March  10,  1986 

March  11,  1986  (Now  writes  out  true  strain) 

July  28,  1986  (deleted  the  above  and  changed  BMF 
equation  at  line  123) 


COMMON/WATER/PP ( 100) , BM  < 100) 

COMMON /SKTON / RR  < 1 00 ) , CM  < 1 00 ) 

COMMON/KODOT/EKO ( 1 00 ) , RKO ( 1 00 ) 

INTEGER  NAM1 (6) ,  NAM2 (6) , NAM3 (6) , NAM4 (6) ,  NAM5(6) 


Read  bulk  modulus  of  water  as  a  function  of  pressure. 

WRITEd,*)’  * 

WRITE( 1,  *)  ’ The  PRESSURE-BULK  MODULUS  file  has  *  of  data  Dairs 
WRITE d,  *)  ’  at  the  top  with  pairs  in  bars  ’ 

WRITE (1,*)’ The  STRAIN-STRESS  file  has  INITIAL  POROSITY,  ft  of 
WRITE (1,  *) ’  data  pairs,  ft  of  divi.,  and  max  strain  at  too’ 

WRITEd,*)’  ’ 

WRITE (1,  *) ’ The  Ko  file  has  ft  of  data  points  at  the  too  ’ 
WRITEd,*)’  then  Dairs  of  EFFECTIVE  VERTICAL  STRAIN  vs  * 

WRITEd,  *)  ’  VALUE  of  Ko  (must  have  at  least  two  pairs)’ 
WRITEd,*)’  ’ 

WRITEd,  *)’**NOTE;  STRAIN-STRESS  data  must  begin  with  zero  ’ 
WRITEd,  *)’**NOTE;  The  first  EFFECTIVE  VERTICAL  STRAIN  ’ 
WRITEd,*)’  must  be  zero  and  the  last  .GE.  EMAX’ 

WRITEd,*)’  ’ 

WRITE(l)’ Type  INPUT  file  with  PRESSURE-BULK  MODULUS  pairs  ’ 
READ (1,10)  NAM1 
10  FORMAT (6A2) 

WRITE(l)’ Tyoe  INPUT  file  with  STRESS-STRAIN  Dairs  ’ 

READd,  10)’  NAME 

WRITE(l)’ Tyoe  INPUT  file  with  EFFECTIVE  VERT.  STRAIN  vs  Ko  ’ 
READd,  10)  NAM4 
OPEN (7, FILE=NAM1 ) 

WRITEd)’ Type  OUTPUT  file  (STRN.  BMF, P^, PCR)  ’ 

READd,  10)  NAME 

WRITEd) ’Tyoe  OUTPUT  file  (STRN.  3E,  S.  SEH.  SH)  ’ 

READd,  10)  NAM5 

WRITEd,*)’  ’ 

WRITEd) ’Tyoe  case  A,  B  or  C  ’ 

READd,  30)  IANS 
30  FORMAT (Al) 


c 


OPEN (6, FILE=NAM3) 

OPEN  <3, FILE=NAW5) 

READ  <7, *)  NWATER 
DO  100  1=1, NWATER 
100  READ(7, *)  PP ( I ) , BM ( I ) 

CLOSE (7) 

C 

C  Read  variable  Ko  as  a  function  of  effective  vertical  strain 
C 

OPEN ( 8 , F I LE=NAM4 ) 

C 

READ (8, *)  NKO 
DO  50  1=1, NKO 

50  READ (8, *)  EKO < I ) , RKO  (I ) 

CLOSE (8) 

C 

C  Read  initial  oorosity  and  #  of  data  pairs  in  STRESS-STRAIN  curve 
C 

OPEN ( 5 , F I L£=NAM2 ) 

READ<5, *)  POR,  NPOINT, NDIV, EMAX 
C 

DO  120  1=1, NPOINT 
120  READ (5, *) RR  < I) , CN( I ) 

C 

CLOSE  (5) 

C 

C  Set  initial  conditions 
C 

VO  =  1.0 
PORI  =  POR 
STRN  =  0.0 
EE  =  0.0 
S  =  0.  0 
SE  =  0. 0 
PE  =  0.0 
PF  =  0.0 
NFIRST  =  0 
KK  =  1 
C 

CPEN(6,FILE=NAM3> 


C  Steo-by-steo  calculations 

L, 

150  IF (NFI RST. EQ. 0)  SOTO  £00 
K  =  K  +  1 

IF (K. EQ. NDIV)  GOTO  £00 
GOTO  300  ' 

£00  CONTINUE 
K  =  0 
NFIRST  =  l 
KK  ■  KK  +  1 

DDTRN  *  (RR(KK) -RR (KK-1 ) ) /NDIV 
300  CONTINUE 


nno  nnn  nnn  non  nnn  nnn  nnn  nn 


Calcul'ate  skeleton  constrained  modulus 
CALL  CONMS (EE, BMS) 

Calculate  skeleton  bulk  modulus 
CALL  BULKS (BMS, BKS, EE) 
Calculate  grain  bulk  modulus 

CALL  BULKG (PF,  PE,  POR, BKG,  IANS) 


Calculate  water  bulk  modulus 
CALL  BULKW (PF,  BKU) 

Calculate  undrained  constrained  modulus 
AA  *  (1.-P0RI) / (1. -POR) 

BMF  «  BMS+<BKG-AA*BKS)/(1.+P0RI*BKG*(BKG-BKW)/ 
*  (BKW* (BKG-AA*BKS) ) ) 

Calculate  total  strain  increment 

DSTRN  *  DDTRN*BMS*<BKG-BKS)/(BMS*BKG-BMF*BKS> 

Calculate  oressure  increments 

DS  =  BMF*DSTRN 

DPF  a  DSTRN* (BMF-BMS) / ( 1 . -BKS/BKG) 

DSE  -  DS  -  DPF 

DPE  =  BKS*  <DSTRN-DPF/BKG) 


Uodate  oressures 

PF  »  PF+DPF 
PE  »  PE+DPE 
S  =  S  +  DS 
SE  =  SE  +  DSE 
SEH  =  1.5  *  PE-  0.5  *  SE 
SH  =  SEH+PF 

0  Uodate  strain,  volume  of  water  and  Dorositv 

EE  =  EE  +  DDTRN 

STRNO  =  STRN 

PORO  =  POR 

STRN  =  STRN  +DSTRN 

DVW  a  PORO* (1. -STRNO) -PORI*DPF/BKW 

POR  ■  DVW/ (1. -STRN) 

C 


n  n  n  n  n  n 


C  Write 
C 


C 

C 

C 

C 

C 

C 


2001 


500 


Total  vertical  stress  (S) 

Total  horizontal  stress  (SH) 
Undrained  constrained  modulus  (BMF) 
Effective  vertical  stress  <SE) 
Effective  horizontal  stress  (SEH) 
Pore  water  pressure  (PF) 
and  porosity  (POR) 
as  a  function  of  strain  (STRN) 

WRITE (6, £001)  (STRN  *100) ,  BMF, PF, POR 
WRITE<3,*)  (STRN  *100) , SE, S,  SEH, SH 
FORMAT (4E12. 4) 

I F ( STRN. ST. EMAX )  GOTO  500 
GOTO  150 
CONTINUE 
CLOSE (6) 

CLOSE (3) 

STOP 

END 


C 

c*************************************** ********* 
c 

SUBROUTINE  BULKS (PF,  PE,  POR, BKG, IANS) 


Assume  constant 


IF ( IANS. NE. 1HA)  THEN 
p  =  PF+PE/U.-POR) 

IF(P.LE. 1363. )  BKG  -  344827. 

IF(P.GT. 1363. )  BKG  =  253.  *  P 
END  IF 

IF (IANS. EQ.  1HB)  THEN 

IF(BKG.  GT.  688000. )  BKG  =  344827. 

END  IF 

IF (IANS. EQ. 1HA)  BKG  =  413793.  ! In  bars 

RETURN 

END 


SUBROUTINE  8ULKW (PF,  BKW) 

C 

CCMMON/WATER/PP ( 100) , BM (100) 

C 

1  =  1 

100  CONTINUE 

I F  (PF.  3E.  PP  ( I ).  AND.  PF.  ,-t.  PP  ( I  + 1 ) )  GOTO  d00 
I  =  1  +  1 
GOTO  100 
200  CONTINUE 

BKW  =  BM(I)+ (BM (I+1)-BM ( I) ) *(PF-PP( I) ) / (PP(I+ 

RETURN 

END 


i 


) -PP  ( I )  ) 


n  n  n 


C 

SUBROUTINE  BULKS (BMS, BKS,  EE) 


Find  Ko 

CALL  CALKO(EE,  XKO) 

A  =  <2. 0*XKO+1.0>/3. 

BKS  =  A#BMS 
RETURN 
END 
C 

C 

SUBROUTINE  CONMS (EE,  BMS) 

COMMON /SKTON/RR < 100) ,  CM ( 100) 

I  =  1 

100  CONTINUE 

IF (EE.  GE.  RR ( I) .  AND. EE. LE. RR ( 1  +  1 ) )  GOTO  200 
I  -  I  +1 
GOTO  100 
200  CONTINUE 

BMS  *  (CM< 1+1 ) -CM( I ) ) / (RR(I+1 ) -RR (I ) ) 

RETURN 

END 

C 

c 

SUBROUT I NE  CALKO ( EE,  XKO ) 

COMMON/KODAT /EKQ ( 100) , RKO( 100) 

I  =  1 

100  CONTINUE 

IF(EE.GE.EKO(I).AND.EE.LE.EKO(I+l))  GOTO  200 
1*1+1 
GOTO  100 
200  CONTINUE 

XKO  =  RKO(I) 

RETURN 

END 


0.2  SAMPLE  PROBLEMS 


Two  sample  problems  were  prepared  to  illustrate  the  use  of  KOCP  in  unce 
men ted  and  cemented  porous  media. 


D.2.1  Beach  Sand 


TAPE5  contains  the  input  for  the  skeleton  in  tabular  form  as  effective 
axial  strain-effective  axial  stress  pairs. 


TAPE  5 


0.4 

15 

0.0 

0.0 

3.4E-2 

115.48 

6.2E-2 

210.58 

9.1E-2 

309.08 

.115 

390.6 

.161 

651.42 

.187 

851.76 

.216 

1229.8 

.235 

1547.3 

.249 

1893.8 

.264 

2346.1 

.277 

2928.2 

.288 

3588.5 

.298 

4413.8 

.301 

4779.2 

TAPE8  lists  the  effective  axial  strain-k0  pairs. 

TAPES 


.0 

.1 

.00348 

.75 

.157 

.47 

.30 

.47 

TAPES  3  and  6  contain  the  output  data:  <7a^  (bars),  ari-  (bars),  Mf^ 
(bars),  <7'a.j  (bars),  a'ri  (bars),  n-j  (bars),  n^  and  eai-. 


List  of  Output  File  Tape  3 


~ai 

Mfi 

(bars) 

. 1504E+00 

. 5265E+05 

. 3009E+00 

. 5299E+05 

. 451SE+00 

. 5403E+05 

. 6030E+00 

. 551 1E+05 

. 7546E+00 

. 5622E+05 

. 9066E+00 

. 5737E+05 

. 1 059E+01 

. 5855E+05 

. 1212E+01 

. 5977E+05 

. 1 365E+01 

. 6103E+05 

. 1518E+01 

. 6233E+05 

. 1673E+01 

. 6368E+05 

. 1827E+01 

. 6507E+05 

. 1 982E+0 1 

. 6646E+05 

.21 38E+0 1 

. 6751E+05 

. 2293E+01 

. 6857E+05 

. 2449E+01 

. 6976E+05 

.2604E+01 

. 7149E+05 

. 27S8E+01 

. 7335E+05 

. 291 1E+01 

. 7587E+05 

. 3063E+01 

. 7843E+05 

. 3216E+01 

. 8106E+05 

. 3367E+01 

. 8376E+05 

. 3518E+01 

. 8604E+05 

. 3669E+0 1 

. 8823E+05 

. 3819E+01 

. 9045E+05 

. 3942E+01 

. 9270E+05 

. 4065E+01 

. 9458E+05 

. 4187E+01 

. 9&43E+05 

. 4310E+01 

. 9843E+05 

. 4432E+0 1 

. 1004E+06 

. 4554E+01 

. 1027E+06 

. 4676E+01 

. 1054E+06 

. 4798E+01 

. 1082E+06 

. 4920E+01 

. 11 11E+06 

. 5041E+01 

.  1 140E+06 

. 5163E+01 

. 1 1 70E+06 

. 5234E+01 

.  1201E  +  06 

. 5405E+01 

. 1 233E+06 

. 552SE+0 1 

.  1 266E+0S 

. S648E+01 

.  1300EJ-06 

.  37S9E+0  1 

.  1336E+-0S 

. 5890E+01 

. I378E+0S 

. 601 1E+01 

.  1403E+06 

. 6131E+01 

. 1447E+0S 

. S252E+0 1 

. 1486E+06 

. 6373E+0 1 

. 1526E+06 

. 6494E+01 

. 1567E+06 

T  . 

1 

ni 

(bars) 

. 7457E+02 

. 3992E+00 

.  1497E+03 

. 3985E+00 

. 2266E+03 

. 3377E+00 

. 3053E+03 

. 3969E+00 

. 3859E+03 

. 3362E+00 

. 46S5E+03 

. 3954E+00 

. 5531E+03 

. 3346E+00 

. 639SE+03 

. 3933E+00 

. 7236E+03 

. 333 1  E+00 

. 81 98E+03 

. 3323E+00 

.91 33E+03 

. 33 1 5E+00 

. 1 009E+04 

. 3307E+00 

. 1 103E+04 

. 3Q93E+00 

. I20SE+04 

. 3832E+00 

. 1310E+04 

. 3884E+00 

.  1414E+04 

. 3876E+00 

. 1520E+04 

. 3868E+00 

. 1628E+04 

. 3B60E+00 

. 1740E+04 

. 3852E+00 

. 1855E+04 

. 3844E+00 

. 1 974E+04 

. 3336E+00 

. 2096E+04 

. 382SE+00 

. 2221E+04 

. 33 1 3E+00 

. 2349E+04 

. 38 1 1 E+00 

. 2481E+04 

. 3803E+00 

. 2591E+04 

. 3796E+00 

. 2703E+04 

. 3789E+00 

. 2818E+04 

. 3782E+00 

. 2935E+04 

. 3775E+00 

. 3054E+04 

. 376SE+00 

.31 75E+04 

. 3761E+00 

. 3300E+04 

. 3754E+00 

. 3428E+04 

. 3747E+00 

. 3559E+04 

. 3740E+00 

. 3694E+04 

. 3733E+00 

.  3  vi  2  E + 0  4 

.  372&/E+00 

. 3974E+04 

. 3713E+00 

.41 20E+04 

. 27122+00 

. 4270E+04 

. 3705E+00 

. 4422E+04 

.  ■-6  37E+0' 

. ^33 1 E+94 

. 32 33 E+00 

.  47^+E+04 

. 3833E+00 

.  43  1  0E+-04 
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D.2.2  Cemented  Coral 


TAPE5  contains  the  effective  axial  strain-effective  axial  stress  pairs 
and  TAPE8  contains  the  effective  axial  strain-kQ  pairs. 


TAPE  5 


0.41 

0.0 

.00348 

.040 

.076 

.132 

.180 

.206 

.219 

.241 

.262 

.276 

.284 

.287 


0.0 

.00348 

.157 

.30 

TAPES  3  and  6  contai 


13  50 

0.0 

324. 

365. 

427. 

526. 

628. 

721. 

781. 

917. 

1082. 

1255. 

1366. 

1434. 


TAPE8 


.1 

.75 

.47 

.47 

the  output  data  listed 


.20 


in  subsection  D.2.1. 


List  of  Output  File  Tape  3 


£ai 

(bars) 

. 14S7E-01 

. 1 325E+06 

. 2935E-01 

. 1325E+06 

. 4402E-01 

. 1 325E+06 

. 5Q69E— 0 1 

. 1 325E+06 

. 7336 E— 0 1 

. 1 325E+06 

. 8Q04E-01 

. 1325E+06 

. 1027E+00 

. 1326E+06 

.  U74E+00 

. 1326E+06 

. 1321E+00 

. 1 326E+06 

.  1467E+00 

. 1326E+06 

. 1614E+00 

. 1 327E+06 

. 176 IE +00 

. 1328E+06 

. 1 90QE+00 

. 1 329E+06 

.  2054E+00 

. 1329E+06 

. 2201E+00 

. 1 330E+06 

. 2348E+00 

. 1331E+06 

. 2495E+00 

. 1332E+06 

. 2642E+00 

. 1332E+06 

. 2789E+00 

. 1 333E+06 

. 2936E+00 

. 1334E+06 

. 3082E+00 

. 1335E+06 

. 3229E+00 

. 1336E+06 

. 3376E+00 

. 1336E+06 

. 3523E+00 

. 1337E+06 

. 3670E+00 

. 1338E+06 

. 5333E+00 

. 5126E+05 

. 7001E+00 

. 5242E+05 

. 8675E+00 

. 5362E+05 

. 1035E+01 

. 5486E+05 

. 1204E+01 

. 5G15E+05 

. 1373E+01 

. 574SE+05 

. 1543E+01 

. 5886E+05 

. 1 7 14E+01 

. 6030E+05 

. 1885E+01 

. 61 79E+05 

. 2057E+01 

. 6331E+05 

.  2229E+01 

. 6444E+05 

. 2401E+01 

. 6600E+05 

. 2571E+01 

. 6772E+05 

. 2740E+01 

. 6944E+05 

.  2908E+0 1 

. 7161E+05 

. 3075E+01 

. 7422E+05 

. 3242E+0 1 

. 7690E+05 

. 3407E+0 1 

. 7967E+05 

. 3573E+0 1 

. 822 1 E+05 

. 3738E+0 1 

. 8445E+05 

. 3902E+01 

. 3673E+05 

. 40S5E+01 

. 3905E+05 

. 4228E+0 1 

. 91 41E+05 

. 4391E+01 

. 9332E+05 

. 4553E+0 1 

. S628E+05 

. 4713E+01 

. 9967E+05 

. 4Q72E+0 1 

. 1031E+06 

. 5031E+01 

. 1 066E+06 

TT  . 

n . 

1 

i 

(bars) 

. 6488E+01 

. 4099E+00 

. 12SSE+02 

. 4399E+00 

. 1 946E+02 

. 40983+03 

. 2595E+02 

•  +0-9oE+-:  0 

. 3244E+02 

. 40973+00 

. 3893E+02 

. 4096E+00 

. 4542E+02 

. 4096E+00 

. 51 91E+02 

. 4095E+00 

. 5840E+02 

. 4094E+00 

. 6491E+02 

. 4094E+00 

- 7142E+02 

. 4093E+00 

. 7796E+02 

. 4093E+00 

. 8450E+02 

. 4092E+00 

. 9106E+02 

. 4091E+00 

. 9763E+02 

. 4091E+00 

. 1042E+03 

. 4090E+00 

. 1 108E+03 

. 4089E+00 

. 1 174E+03 

. 4089E+00 

. 1 240E+03 

. 4088E+00 

. 1 307E+03 

. 4088E+00 

. 1373E+03 

. 4087E+00 

. 1440E+03 

. 4086E+00 

. 1 507E+03 

. 4086E+00 

. 1574E+03 

. 4085E+00 

. 1641E+03 

. 4085E+00 

. 2476E+03 

. 4076E+00 

. 3334E+03 

. 4068E+00 

. 42 15E+03 

. 4059E+00 

. 5 1 20E+03 

. 40513+00 

. 6050E+03 

. 4042E+00 

. 7006E+03 

. 4034E+00 

. 7990E+03 

. 4025E+00 

. 9002E+03 

. 4017E+00 

. 1004E+04 

. 4006E+00 

. 1 1 12E+04 

. 3999E+00 

. 1221E+04 

. 3991E+00 

. 1333E+04 

. 39823+00 

. 1446E+04 

. 3973E+00 

. 1 562E+04 

. 3965E+00 

. 1680E+04 

. 3956E+00 

. 1803E+04 

. 39473+00 

. 1929E+04 

. 393SE+O0 

. 2060E+04 

. 39293+00 

. 2194E+04 

. 3920E+00 

, 2332E+04 

. 39 1 I 3+00 

.  847-13  +  04 

. 39723+00 

.  26  1  3E+0  + 

. 27 6 “2 +04 

. 383+3-00 

. 2915E+04 

.  33733  +  00- 

. 3069E+04 

. 33653+00 

. 3226E+04 

. 3S56E+00 

. 3388E+04 

. 3847E+00 

. 3555E+04 

. 33383+00 

. 5190E+01 

.11 02E+06 

. 3727E+04 

3829E+00 

. 5349E+01 

. il 40E+06 

. 3906E+04 

3220E+-00 

. 5507E+01 

.  1 179E+06’ 

. 4090E+04 

3810E+00 

. 5S66E+01 

• 1220E+06 

. 4281E+04 

330 1 E+00 

. 5S24E+0 1 

. 1262E+06 

. 4478E+04 

3792E+00 

. 5982E+01 

. 1306E+06 

. 46Q3E+04 

3782E+00 

.  S140E+01 

. 1352E+0S 

. 4894E+04 

3773E+00 

.6298E+01 

. 1399E+06 

. 51 12E+04 

3764E+00 

. 6456E+0 1 

. 1448E+06 

. 5338E+04 

3754E+00 

. 6614E+01 

. 1498E+06 

. 5572E+04 

3745E+00 

. 6771E+01 

. 1550E+06 

. 5814E+04 

3735E+00 

.6929E+01 

. 1604E+06 

. 6064E+04 

3726E+00 

. 7086E+01 

. 1660E+06 

. 6323E+04 

3718E+00 

. 7243E+01 

. 1719E+06 

. 6591E+04 

3706E+00 

. 7401E+01 

. 1780E+06 

. 6Q68E+04 

3697E+00 

. 7558E+01 

. 1844E+06 

. 7156E+04 

3687E+00 

. 7715E+01 

. 1912E+0S 

. 7454E+04 

3677E+00 

. 7872E+01 

. 1985E+08 

. 7763E+04 

3867E+00 

. 8029E+01 

. 2060E+06 

. S084E+04 

3658E+00 

. 8186E+01 

. 2141E+06 

. 8418E+04 

3648E+00 

. 8344E+01 

. 2232E+06 

. 8767E+04 

3638E+00 

. 8501E+01 

. 2326E+06 

. 9130E+04 

3628E+00 

. 8745E+01 

. 2429E+06 

. 9720E+04 

3613E+00 

.8990E+01 

. 2607E+06 

.  1035E+05 

3597E+00 

. 9235E+01 

. 2745E+06 

. 1 1 02E+05 

3581E+00 

. 9479E+01 

. 2844E+06 

. 1 171E+05 

3566E+00 

. 9722E+01 

. 2946E+06 

. 1242E+05 

3550E+00 

. 9965E+01 

. 3052E+06 

. 131 6E+05 

3534E+00 

. 1021E+02 

. 3161E+06 

. 1393E+05 

3518E+00 

. 1045E+02 

. 3273E+06 

.  1471E+05 

3502E+00 

. 1069E+02 

. 3389E+06 

. 1553E+05 

3486E+00 

. 1093E+02 

.  3538E+06. 

.  1638E+05 

3469E+00 

. 1118E+02 

. 3708E+0S 

. 1727E+05 

3453E+00 

. 1 142E+02 

. 3887E+06 

. 1821E+05 

3437E+00 

.  1 1 66E+02 

. 4075E+0S 

. 1913E+05 

3420E+00 

. 1 190E+02 

. 4272E+06 

. 2021E+05 

3404E+00 

. 1214E+02 

. 4487E+08 

. 21 23E+05 

3387E+00 

. 1238E+02 

. 4750E+06 

. 2243E+05 

3370E+00 

. 1262E+02 

. 5029E+06 

. 2385E+05 

3353E+00 

. 12S6E+02 

. 5325E+06 

. 2493E+05 

3338E+00 

. 131 1E+02 

. 5S38E+06 

. 2629E+05 

33  19E+00 

. 1 335E+02 

. 5974E+0S 

. 2773E+05 

3302E+00 

. 1359E+02 

. 6330E+06 

. 2925E+05 

3285E+00 

. 1333E+02 

. 6707E+06 

. 3087E+05 

32872+00 

. 1407E+02 

. 7049E+08 

. 3257E+05 

3250E+00 

. 1 432E+02 

. 7256E+0S 

. 3435E+05 

323li2+70 

. 1 456E+02 

. 7G75E+0S 

. 3620E+05 

-JcJ  ■  —  ~~ 0 

.  1  478E+02 

. 30 1 2E  +  0S 

. 3735E+05 

31992+00 

. 1497E+02 

. 8310E+06 

. 3957E+05 

3 1 8<*E+00 

. 1518E+02 

. 88 1 8E  +  06 

. 4 1 34E+05 

3 1 69E+00 

. 1538E+02 

. 9025E+06 

. 4320E+05 

3 1 53E+00 

. 1559E+02 

. 9480E+06 

. 4516E+05 

31 38E+00 

. 1580E+02 

. 9958E+08 

. 4722E+05 

3122E+00 

. 1600E+02 

. 1046E+07 

. 4938E+05 

3106E+00 

. 1621E+02 

. 1099E+07 

. 5165E+05 

3090E+00 

& 


List  of  Output  File  Tape  6 


£ai 

a 1  . 

ai 

(bars; 

°ai 

(bars) 

0  ri 
(bars) 

°ri 

(bars) 

. 1467E-01 

. 1296E+02 

.  1945E+02 

. 6654E+00 

7153E+01 

. 2935E-01 

. 2592E+02 

. 3890E+02 

. 1331E+01 

1431E+02 

. 4402E-01 

. 38S8E+02 

. 5834E+02 

. 1996E+01 

2 1 46E+02 

. 5Q69E-01 

. 51S4E+02 

. 7779E+02 

. 2661E+01 

2861E+02 

. 7336E-01 

. 64S0E+02 

. 9724E+02 

. 3327E+0 1 

3577E+02 

.  8804E-01 

. 777SE+02 

. 1 167E+03 

. 3992E+01 

4292E+02 

. 1 027E+00 

. 9072E+02 

. 1361E+03 

. 4657E+01 

5008E+02 

.  1174E+00 

. 1037E+03 

. 1556E+03 

. 5323E+0 1 

5723E+02 

. 1 321E+00 

.  1 166E+03 

. 1 750E+03 

. 5983E+0 1 

6439E+02 

. 1467E+00 

. 1298E+03 

. 1945E+03 

. 6651E+01 

7158E+02 

. 1614E+00 

. 1426E+03 

. 2140E+03 

. 7314E+01 

7874E+02 

. 1761E+00 

. 1555E+03 

. 2335E+03 

. 7975E+01 

8593E+02 

. 1908E+00 

. 16S5E+03 

. 2530E+03 

. 8635E+01 

93 1 3E+02 

. 20S4E+00 

. 1814E+03 

. 2725E+03 

. 9293E+01 

1004E+03 

. 2201 E+00  ' 

. 1 944E+03 

.•2920E+03 

. 9951E+01 

1 076E+03 

.  2348E+00 

. 2074E+03 

.31 16E+03 

. 1061E+02 

1 148E+03 

. 2435E+00 

. 2203E+03 

.3311 E+03 

.  1 126E  +  02 

1221 E+03 

. 2642E+00 

. 2333E+03 

. 3507E+03 

. 1 192E+02 

1293E+03 

. 278SE+00 

. 2462E+03 

. 3703E+03 

. 1257E+02 

1 366E+03 

.  2936E+00 

. 2592E+03 

.  3899E+03 

. 1322E+02 

1439E+03 

. 3082E+00 

. 2722E+03 

. 4095E+03 

. 1387E+02 

1512E+03 

. 3229E+00 

. 2851E+03 

. 4291E+03 

. 1452E+02 

1585E+03 

. 3376E+00 

. 2981E+03 

. 4487E+03 

. 1516E+02 

1 S58E+03 

.  3533E+00 

.31  10E+03 

. 4684E+03 

. 1581E+02 

1732E+03 

. 3670E+00 

. 3240E+03 

. 48S1E+03 

. 1645E+02 

1805E+03 

.  5333E+00 

. 3256E+03 

. 5733E+03 

. 1763E+02 

2853E+03 

. 7001 E+00 

• 3273E+03 

.  6607E+-03 

.  1830E+02 

3522E+03 

. 8675E+00 

. 3289E+03 

. 7505E+03 

. 1997E+02 

4415E+03 

. 1 035E+01 

. 3306E+03 

. 8426E+03 

. 21 14E+02 

53322+03 

.  1204E+01 

. 3322E+03 

. 9372E+03 

. 2230E+02 

6273E+03 

. 1373E+01 

. 3338E+03 

. 1034E+04 

. 2347E+02 

7241 E+03 

.  1543E+01 

. 3355E+03 

. 1 134E+04 

. 2463E+02 

82362+03 

. 1714E+01 

. 3371E+03 

. 1237E+04 

. 2579E+02 

9260E+03 

. 1Q85E+01 

. 3388E+03 

. 1343E+04 

. 2695E+02 

1031E+04 

. 2057E+01 

. 3404E+03 

. 1 452E+04 

. 281 1E+02 

1 140E+04 

.  2229E+01 

. 3420E+03 

. 1563E+04 

.  a 9  c! 72+ 0  c! 

1250E+04 

. 2401E+01 

. 3437E+03 

. 1676E+04 

•  C04c*c  +  0c! 

1 3c)3E  +  04 

. 2571E+01 

. 3453E+03 

. 1792E+04 

. 3159E+02 

l 4782+04 

. 2740E+01 

. 3470E+03 

. 1 909E+04 

••  Cc73c  +  0c 

:3~=!E+'7i+ 

. 3908E+01 

. 3486E+03 

. 2029E+04 

.  33 98 E +02 

•  7  1  «•:“•••  04 

. 3075E+01 

.  3i0c;E  +  03 

.81 53E  +  04 

. 35032+08 

1  3221  +  .!''- 

.  3242E+01 

. 3519E+03 

.  828 '.E- >04 

. >08 

-  38  :  3  ■■■■  C  -  - 

. 3407E+01 

•  c  5  w  5  — +  0  c* 

. 2413E+04 

. 3744E+02 

807  ^  2 --- 04 

. 3573E+0 1 

. 3552E+03 

. 2549E+04 

. 38882+08 

8233 E +04 

. 3738E+0 1 

. 3568E+03 

. 86QQE+04 

. 3979E+02 

837 1 E+04 

.  3902E+0 1 

. 3584E+03 

. 2831E+04 

. 4097E+02 

85 1 3E+04 

. 4085E+01 

. 380 1 E+03 

. 2976E+04 

. 4215E+02 

2659E+04 

422SE+01 

.  3617E+03 

.31 23c.  i-04 

•  4  w  j  ^  s-  c.  C  c! 

. 2307E+04 

4391E+01 

.  3634E-I-03 

. 3273E+04 

. 4452E+02 

. 2959E+04 

4553E+01 

. 3650E+03 

. 3434E+04 

. 4570E+02 

. 31 15E+04 

4713E+01 

. 3675E+03 

. 3593E+04 

.  4750E+-02 

. 3273E+04 

4S72E+01 

. 3700E+03 

. 3757E+04 

. 4923E+02 

. 3437E+04 

5031E+01 

. 3724E+03 

. 3927E+04 

. 5109E+02 

. 3606E+04 

5190E+01 

. 3749E+03 

. 4102E+04 

. 5288E+02 

.  3780E*<-04 

5349E+01 

. 3774E+03 

. 4283E+04 

. 546SE+02 

. 3961E+04 

5507E+01 

. 3799E+03 

. 4470E+04 

. 5648E+02 

. 4147E+04 

5666E+01 

. 3824E+03 

. 4663E+04 

. 5827E+02 

. 4339E+04 

5824E+01 

• 3848E+03 

.  4Q63E-+-04 

. 6007E+02 

. 453BE+04 

59S2E+01 

• 3873E+03 

. 5070E+04 

.61 87E-t-02 

. 4744E+04 

6140E+01 

. 3898E+03 

. 52Q3E+04 

. 6367E+02 

. 4957E+04 

6298E+01 

■ 3323E+03 

. 5504E+04 

. 6547E+02 

. 51 78E+04 

6456E+01 

. 3948E+03 

. 5733E+04 

. 6727E+02 

. 5405E+04 

6614E+01 

. 3972E+03 

. 5969E+04 

. 6907E+02 

..  5641E+04 

6771E+01 

. 3997E+03 

. 6214E+04 

. 7087E+02 

. 53Q5E+04 

6929E+01 

. 4022E+03 

. 6466E+04 

. 7268E+02 

. 6137E+04 

7086E+01 

. 4047E+03 

. 6728E+04 

. 7448E+02 

. 6397E+04 

7243E+01 

. 4072E+03 

. 6998E+04 

. 7628E+02 

. 6667E+04 

7401E+01 

. 4096E+03 

. 7278E+04 

. 7808E+02 

. 6947E+04 

7558E+01 

. 4121E+03 

. 7568E+04 

. 7989E+02 

. 7236E+04 

771SE+01 

. 4146E+03 

. 7868E+04 

. 8169E+02 

. 7535E+04 

7872E+01 

. 4171E+03 

. 3180E+04 

. 8349E+02 

.  7S47E-!-04 

8029E+01 

. 4196E+03 

■ 8504E+04 

. 8530E+02 

. 8170E+04 

81S6E+01 

. 4220E+03 

. 8840E+04 

. 8710E+02 

. 3505E+04 

8344E+01 

. 4245E+03 

. 9191E+04 

. 8890E+02 

. 6S55E+04 

8501E+01 

. 4270E+03 

. 9557E+04 

. 9071E+02 

. 9220E+04 

8745E+0 1 

. 4310E+03 

. 1015E+05 

. 9359E+02 

. 3813E+04 

8990E+01 

. 4349E+03 

. 1079E+05 

. 9646E+02 

.  1045E+05 

9235E+01 

• 4389E+03 

. 1 146E+05 

. 9934E+02 

. 11 12E+05 

9479E+01 

. 4428E+03 

.  1215E+05 

. 1022E+03 

.  US1E+05 

9722E+01 

. 4468E+03 

.  1287E+05 

. 1051E+03 

. 1253E+05 

9965E+01 

. 4508E+03 

.  1381E+05 

. 1 080E+03 

.  1327E+05 

1021E+02 

. 4547E+03 

. 1438E+05 

. 1109E+03 

. 1404E+05 

1045E+02 

. 4587E+03 

.  1517E+05 

. 1 138E+03 

. 1483E+05 

1069E+02 

. 4626E+03 

. 1599E+05 

. 1 167E+03 

. 1565E+05 

1 093E+02 

. 4666E+03 

.  1635E  +  05 

.11 96E+03 

.  1  650E-f'?3 

1 1 18E+02 

. 4706E+03 

.  177‘+E+05 

.  1  c!  c.  +I03 

.  173 

i 1 42E+02 

.47 45E  +  03 

. 1 363E+05 

.  1 253E-t-03 

.  183  3E--05 

i 1 S&E+02 

. 4785E+03  „ 

•  i.937E"^"05 

.  12 82 £-i-0  3 

.  l  9  3  l  E  -f-  ?.  5 

1 190E+02 

.  4824E-'-03 

. 2070E+05 

.131 12+03 

.  203 A3  ••••?. 9 

1214E+02 

.  4SG4E  -t"1? 3 

.  2  j.  73E+03 

.  1 340E  -1-03 

.  21  ■*  :.E-n.  3 

1  ir.'33E  +  02 

.  4 304E-1' 03 

.  2292E-:-05 

.  .  j.  j  "  <ii  -■ 

1262E+02 

. 4343E+03 

. 24 i ^E+05 

<  -7  r-  r—  t  )■> 

•  L  -  '  -  C.  '  *  ■._> 

.  ‘1 — I? 

1 286E+02 

. 4983E+03 

.  2543E-I-05 

. 14c7Et03 

.  C.  lj  0  f  0  2 

131 IE+-02 

. 5028E+03 

. 2S79E+05 

. 1453E+03 

.  2643E-r05 

1 335E+02 

. 5062E+03 

. 2823E+05 

. 14S5E+03 

. 2733E+05 

1359E+02 

. 5102E+03 

. 2976E+05 

.  1514E+03 

. 294 1 E+05 

1383E+02 

1407E+02 

1432E+02 
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APPENDIX  E 


VISCOUS  FRICTION  EQUATION  INCORPORATING  BIOT'S  THEORETICAL 
AND  WARD'S  EMPIRICAL  RESULTS 

The  fluid  friction  equation  presented  by  Kim  and  Blouin  (1984)  is  the 
generalized  form  of  Biot's  theoretical  fluid  equation.  The  friction  force  is 
proportional  to  the  relative  fluid  velocity  and  the  relative  fluid  accelera¬ 
tion. 


Ward  (1964)  conducted  a  series  of  experimental  flow  tests  and,  based  on 
analysis  of  these  tests,  proposed  an  empirical  equation  which  is  applicable 
for  both  laminar  and  turbulent  flow  in  porous  media.  However,  Ward's  work  was 
limited  to  steady  state  flow.  The  friction  force  in  this  equation  is  a  func¬ 
tion  of  both  the  relative  fluid  velocity  and  the  square  of  the  relative  fluid 
velocity. 


A  generalized  viscous  friction  equation  combining  our  generalization  of 
Biot's  theoretical  equation  and  Ward's  empirical  equation  is  given  by: 


Tf  fif  Pf 

-  *  j*  *  r  r  ^ 


(E-X) 


where 


D-j  =  viscous  friction  force  between  the  pore  fluid 
and  the  soil  skeleton  per  unit  volume  of  pore 
fluid 

y f  =  unit  weight  of  the  pore  fluid 
=  mass  density  of  the  pore  fluid 
n  =  porosity 

k  =  coefficient  of  permeability 
r  =  mass  increment  factor 


175 


PREVIOUS  PAGE 
IS  BLANK 


(3f  =  Ward's  constant  which  depends  on  fluid  properties 

w -j  =  apparent  relative  fluid  velocity 

w-j  =  apparent  relative  fluid  acceleration 

This  equation  requires  validation  by  laboratory  experiments  and  will  be 
updated  once  non-steady-state  .flow  experiments  are  conducted  and  analyzed. 
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APPENDIX  F 


ASSUMPTIONS  ON  TIME  VARIATION  OF  FLUID  PRESSURE 


Figure  F.l  shows  the  time  variation  of  fluid  pressure  during  the  time 
step.  The  second  derivative  of  fluid  pressure  with  respect  to  time  is  assumed 
constant  as  in  Newmark's  average  acceleration  method. 


nT  =  JTn_)j  =  Constant 


where  r  varies  from  0  to  At. 


Integrating  Equation  F-l  with  respect  to  time, 


*  *n-l  +  "n-Ji  T 


At  r  = 


1  1  At  1 

"n-Jj  =  *n-l  +  ~  "n-* 


Since 


=  %(wn-l  +  *n> 


Substituting  Equation  F-4  into  Equation  F-3 


S  i  .  At  ~  At; 

nn-\  ~  ^n-l  +  *n-l  +  *n 


At  T  =  At, 


(F-l) 


( F— 2 ) 


(F-3) 


(F-4) 


( F-5 ) 
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CARO  3  General  Options 


NF,  NTCSF ,  ISFG ,  IP,  NLNR ,  ICONST,  NFG 
(715) 

Analysis  Type 

NF  =  1  Static  (available  soon) 

=  2  Consolidation  (available  soon) 

=  3  Two  phase  dynamic 

Options  in  Two  Phase  Dynamic  Analysis  (NF=3) 

NTCSF  =  0  Two  phase  dynamic  analysis 

1  Consolidation  Analysis  (suppressed  inertial  terms) 

2  One  phase  solid  dynamic  analysis  (suppressed  fluid 
phase) 

3  One  phase  fluid  dynamic  analysis  (suppressed  solid 
phase,  available  soon) 

Initial  Stress  Conditions 
ISFG  =  0  No  initial  stress 

1  specified  effective  stress  and  pore  pressure 

2  specified  effective  stress 

3  specified  pore  pressure 

4  imposed  excess  pore  pressure 

Stress  and  Strain  Conditions 
IP  *  1  Plane  stress 

2  Plane  strain 

3  Axial  symmetry 

4  Spherical  symmetry 

Material  Model 

NLNR  -  0  Linear  elastic  material  model 

1  Decoupled  elastoplastic  material  model  (DCOUP) 

2  Cap  model 

3  AFWL  engineering  model 

4  Uniaxial  strain  model  (UNIAX) 

5  ARA2D  Model 

Mass  Distribution  Options 

ICONST=  0  Lumped  mass  (diagonal  mass  matrix) 

1  Consistent  mass  (complete  mass  matrix,  see  J.S. 
Archer,  "Consistent  Mass  Matrix  for  Distributed 
Systems,"  Proc.  ASCE  89,  ST4,  161,  1963) 

Loading  TyDe 

NFG  =  1  Specified  base  accelerations  (available  for  earth¬ 
quake  analysis) 

2  Specified  pressure  time  history 

3  Specified  velocity  time  history 

4  Both  pressure  and  velocity  time  histories 


CARD  4  Global  Calculation  Parameters 


i 

s 

» 

I 

i 

i 

6 

S 


NCYCL ,  DT,  NUPDAT,  ITER 
(15,  F10.0,  215) 

NCYCL:  Number  of  cycles  (total  number  of  time  steps) 

DT :  Global  time  step  (duration  of  each  cycle) 

NUPDAT:  Number  of  cycles  between  updates  to  global 
stiffness  matrix  (ITER  =  0  for  NUPDAT>1) 

ITER:  Number  of  updates  of  global  stiffness  matrix  within 

each  cycle  (NUPDAT  =  l) 

CARD  5  Mesh,  Material  and  Boundary  Parameters 

NUMNP,  NUMEL,  NUMMAT,  NVIS,  NSKEW 
(515) 

NUMNP:  Number  of  nodes 

NUMEL:  Number  of  elements 

NUMMAT:  Number  of  different  materials 

NVIS:  Number  of  nodes  on  transmitting  boundaries 

NSKEW:  Number  of  element  sides  on  skew  boundaries 


3 


CARO  6  Loading  Functions 


A.  Acceleration  Loading  Functions 

If  NFG  =  1,  otherwise  go  to  next  card 
MTYPE,  NUMAP,  DTXA  (215,  F10.0) 


MTYPE  =  0 
1 

NUMAP : 
DTXA: 


Constant  time  increments  in  acceleration  time 
history 

Specified  times  in  acceleration  time  history 
Number  of  acceleration  time  pairs  in  the  input  acce¬ 
leration  time  history 

Constant  time  increment  in  the  input  acceleration 
time  history  (for  MTYPE  =  0) 


Pressure  Loading  Functions 


If  NFG  =  2  or  4,  otherwise  go  to  next  card 

NUMLP,  NUMLH,  NUMTP,  NTYPE ,  DTXX 
(415,  F10.0) 


NUMLP: 

NUMLH: 

NUMTP: 

NTYPE  =  0 
1 

DTXX: 


Total  number  of  nodes  at  which  input  pressure 
time  hisory  is  specified 
Number  of  input  pressure  time  histories 
Number  of  pressure  time  pairs  in  every  input 
pressure  time  history 

Constant  time  increments  in  pressure  time  history 
Specified  times  in  pressure  time  history 
Constant  time  increment  in  the  input  pressure 
time  history  (for  NTYPE  =  0) 


CARD  7  Velocity  Loading  Functions 

If  NFG  =  3  or  4,  otherwise  go  to  next  card 


NUMVEL,  NUMVH ,  NUMVTP,  NVTYPE ,  DTXV 
(415,  F10.0) 


NUMVEL: 

NUMVH : 
NUMVTP: 

NVTYPE  =  0 
1 

OTXV : 


Total  number  of  nodes  at  which  input  velocity  is 
spec i f i ed 

Number  of  input  velocity  time  histories 
Number  of  velocity  time  pairs  in  every  velocity 
time  history 

Constant  time  increments  in  velocity  time 
Specified  times  in  velocity  time  history 
Constant  time  increment  in  the  input  velocity  time 
history  (for  NVTYPE  =  0) 


CARO  8  Parameters  Required  For  Storage  Use 


NOTE: 


IVMDK,  IELCEN ,  MAXIP,  MXSH 
(415) 


IVMDK  =  0 

=  1 
IELCEN  =  0 
1 

MAXIP: 

MXSH: 


Use  disk  as  sequential  tape  (good  for  CYBER) 

Use  disk  as  virtual  memory 

Compute  stresses  at  integration  points 

Compute  stresses  at  element  center 

Maximum  number  of  integration  points  per  element 

Maximum  number  of  stress/strain  history  data 


— Stresses  and  pore  pressures  are  calculated  at  element 
integration  points  or  at  element  centers 
— Motions  (accelerations,  velocities,  and  displacements) 
are  calculated  at  nodes 


CARO  9  Output  Stress  and/or  Motion  Profile  Specifications 

A.  NPFL ,  NDC,  NSG ,  NPRINT,  NPEL ,  NPMT 
(615) 

NPFL  =  0  Both  motions  at  all  nodes  and  stresses  at  all 
elements 

1  Motions  and  stresses  at  specified  nodes  and 
elements  respectively 

2  Motions  at  all  nodes 

3  Stresses  at  specified  elements 

4  Stresses  at  all  elements 

NDC  =  0  Write  stress/displacement  profile  output  to  hard 

disc 

1  Write  stress/uisplacement  profile  output  to 

floppy  disc 

NSG  =  0  Write  stress/displacement  profile  output  in  one 
file 

1  Write  stress/displacement  profile  output  in  spe¬ 
cified  files 

NPRINT:  Number  of  cycles  between  each  output  profile 

NPEL:  Number  of  elements  in  output  stress  profile 

NPMT:  Number  of  nodes  in  output  motion  profile 

NOTE:  If  NDC  =  1  and  NSG  =  0,  the  program  writes  displacement/ 
stress  profiles  on  hard  disk  17  under  the  name  "DISTR" 

B.  If  NPFL  =  1  or  3,  otherwise  go  to  Card  9c. 

NPRT(I),  I  =  1,  NPEL  (free  format) 

NPRT(I);  List  specified  element  numbers  in  sequential  order 

C.  If  NPFL  =  1,  otherwise  go  to  next  card 
NPM(I),  1=1,  NPMT  {free  format) 


NPM(I):  List  specified  node  numbers  in  sequential  order 


CARD  10  Output  Stress  and/or  Motion  Time  History  Specifications 


A.  NTHS,  NHPEL ,  NHPMT  (315) 

Time  history  options 

NTHS  =  0  Do  not  print  time  history  data,  go  to  next  card 

1  Motion  time  histories 

2  Stress  time  histories 

3  Both  motion  and  stress  time  histories 

NHPEL:  Number  of  elements  at  which  stress  time  histories 

are  required 

NHPMT:  Number  of  nodes  at  which  motion  time  histories 
are  required 

B.  If  NTHS  =  2  or  3,  otherwise  go  to  10C. 

NHPRT(I),  1*1,  NHPEL  (free  format) 

NHPRT(I):  List  specified  element  numbers  in  sequential 
order 

C.  If  NTHS  =  1  or  3,  otherwise  go  to  next  card 
NHPM(I),  1*1,  NHPMT  (free  format) 

NHPM(I):  List  specified  node  numbers  in  sequential  order 


CARD  11  Numerical  Time-Integration  Options 
TETA,  BETA,  GAMA,  ALPA,  (4F10.0) 

TETA:  0 

BETA:  0  Refer  to  Table  1. 

GAMA:  y 
ALPA:  a 

TABLE  1.  VALUES  OF  0  AND  0  FOR  y  =  1/2*  (a  =  0  By  Default)] 


Integration  Method 
(1) 

0 

(2) 

6 

(3) 

Explicit  second  central  difference 

0 

1.0 

Fox-Goodwin 

1/12 

1.0 

Linear  Acceleration 

1/6 

1.0 

Newmark's  constant  acceleration 

1/4 

1.0 

Wilson 

1/6 

2.0 

Stiff  linear  acceleration 

1/6 

1.5 

*  y  =  1/2  indicates  no  damping 

y  >  1/2  introduces  numerical  damping  and  0  =  (y  +  l/2)2/4 
a  Method  available  soon 

For  more  information  see:  Ghaboussi  and  Wilson-,  "Variational  Formulation 
of  Dynamics  of  Fluid  Saturated  Porous  Elastic  Solids,"  ASCE  Engineering 
Mechanics  Journal,  August  1972. 
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CARO  12  Nodal  Coordinates  and  Oegree  of  Freedom  Specifications 


For  each  node: 

NODE,  ISX,  ISY,  IFX,  IFY,  XA,  YA 
(515,  2F10.0) 


Y 


NOOE :  Node  Number 

ISX:  Specifies  skeleton  X  Degrees  of  Freedom  (DOF) 

ISY:  Specifies  skeleton  Y  DOF 

IFX:  Specifies  X  DOF  for  relative  pore  fluid  motion 
IFY:  Specifies  Y  DOF  for  relative  pore  fluid  motion 

ISX,  ISY,  IFX,  IFY  =  0  Free  to  move  in  specified  direction 

=  1  Fixed  in  specified  direction 

XA:  X  Coordinate 

YA:  Y  Coordinate:  Note  for  IP  =  4  (1-D  spherical  analysis) 

set  the  mesh  height  equal  to  1.0.  (see 
example  spherical  problem) 


CARD  13  Element  Specifications 


For  each  element; 


NEL,  MAT,  KS,  KF,  INTR,  INTS,  I,  J,  K,  L,  Ml,  M2,  M3,  M4 
(1415) 


1 

!  Ml 

I"_ 

1 

1 

XXX 

1 

i 

i - 

M4 

X  X 

..  .  _  J 

M3 

L 

Integration  Point 


NEL: 

MAT: 

KS  =  0 
1 

KF  =  0 
1 

INTR: 

INTS: 

I ,  J ,  K ,  L : 


Element  number 

Material  property  number 

Element  has  solid  phase 

Element  has  no  solid  phase 

Element  has  fluid  phase 

Element  has  no  fluid  phase 

Number  of  integration  points  in  r-direction 

Number  of  integration  points  in  s-direction 

Node  numbers  at  element  corner 


Ml, M2, M3, M4:  Node  numbers  at  element  midside 


m 


m 


CARD  14  Specification  of  Skew  Boundaries 


For  each  element  side  on  a  skew  boundary: 
NEL,  NOT,  NDH ,  ISN,  MSF  (515) 


X 


Note:  1.  Positive  directions  on  skew  boundaries  run  parallel  to 
element  boundaries,  from  node  K  toward  node  I. 

2.  Element  sides  are  numbered  counterclockwise  from  node  I 

3.  Input  forces  or  velocities  and  output  motions  on  skew 
boundaries  are  specified  parallel  to  the  element  boun¬ 
daries 


NEL: 

ISN: 

NOT: 

NDH: 

MSF  =  1 
2 
3 


Element  number 

Side  number  on  skew  boundary 
Node  number  at  tail  of  arrow 
Node  number  at  head  of  arrow 
Skew  in  fluid  phase  only 
Skew  in  solid  phase  only 
Skew  in  solid  and  fluid  chases 


NOTE:  It  is  allowed  only  one  skew  boundary  in  current  version. 
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CARO  15  Material  Model  Specifications  and  Parameters 


A.  ELS,  TENS,  STIFAC,  SHEFAC ,  PMN ,  BK,  G,  D8 
(8E10.3) 


ELS  =  0.0  Linear  elastic  material  model 
t  0.0  Material  property  number 


TENS  =  0.0  No  tension  cutoff 

1.0  Tension  cutoff  (effective  for  NLNR  t  o) 


STIFAC: 


Factor  which  reduces  normal  stiffness  once  ten¬ 
sile  strength  is  exceeaed  (example:  Reduced 
modulus  =  original  modulus/STIFAC) 


SHEFAC: 


Factor  which  reduces  shear  stiffness  once  shear 
strength  is  exceeded  (see  example  above) 


Tensile  strength  (tensile  stress  is  positive) 


Elastic  bulk  modulus  of  skeleton 


Elastic  shear  modulus  of  skeleton 


For  NLNR  =  1,  Gp:  Plastic  shear  modulus 

For  NLNR  =  4,  P0SNR:  Poisson's  Ratio 

For  NLNR  =  5,  n:  Material  constant 

Otherwise,  leave  blank 


B.  D9 ,  D10,  Dll,  D12,  D13,  D14,  D15,  D16 
(8E10.3) 


For  NLNR  =  1 
D9  =  a 
010  =  b 


Refer  to  Model  DC0UP 


For  NLNR  =  4 
D9  =  EQNO 
D10  =  C 
Dll  =  0 
D12  =  SVMLL 


Refer  to  Model  UNIAX 


For  NLNR  =  5 
D9  =  a 
D10  =  8 
Dll  =  < 

012  =  K 


Refer  to  Model  ARA2D 


Otherwise,  leave  blank 
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LTON  VT  NEW  ENGLAND  K  J  KIM  ET  AL 

5967-86  AFOSR-TR -86-0665  F/G  8/11 

NL 

■ 

BKM 
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D17;  D18,  RO,  ROF,  D21,  D22,  D23,  D24 
(8E10.3) 


RO:  Mass  density  of  bulk  mixture  (p) 

ROF:  Mass  density  of  pore  fluid  (p^) 

025,  CM,  POR,  RXX,  RYY,  RXY  (6E10.3) 

CM:  Undrained  bulk  modulus  of  soil/water  mixture 

KgKW 

<m  =  Kw  +  n(Kg  -  Kw) 

where  Kg  is  bulk  modulus  of  solid  grains 
Kw  is  bulk  modulus  of  pore  water 
n  is  porosity 

(Reference:  Blouin  and  Kim,  "Undrained 
Compressibility  of  Saturated  Soil,  Applied  Research 
Associates,  Inc. ,  South  Royalton,  Vermont,  1984) 

POR:  Term  in  Biot's  equation  of  motion  for  pore  fluid 
which  is  a  function  of  porosity  and  pore  shape, 

POR  =  n/( 1  +  r) 

r  =  0,  Generalized  Darcy's  Law  (assumes  steady  state 
pore  water  flow  or  simplification  of  Biot's  equation 
for  non  steady  flow  conditions) 

r  =  1/5,  Biot's  equation  for  flat  pores  (1961  paper) 

r  =  1/3,  Biot's  equation  for  circular  pores  (1961) 

Other  values  determined  experimentally  or  from  para¬ 
meter  studies 

RXX:  Flow  resistance  in  x  direction  (for  isotropic  per¬ 
meability,  Rxx  =  yw/K,  where  yw  is  unit  weight  of 
pore  fluid  and  K  is  permeability  in  x  direction) 

RYY:  Flow  resistance  in  Y  direction  (For  isotroDic  per¬ 
meability,  Ryy  =  YW/K) 

RXY:  Flow  resistance  term  for  general  anisotropic  per¬ 
meability  (Reference:  Scheidegger,  A.E.,  "The  Physics 
of  Flow  Through  Porous  Media,"  Macmillan,  New  York, 


CARO  16  Decoupled  Elastoplastic  Material  Model  (DCOUP) 
If  NLNR  =  1,  otherwise  go  to  next  card  group. 


A.  NUMAT  (15) 

NUMAT:  Number  of  different  material  property  sets. 

For  each  material  property  set,  provide  input  data 
describing  volumetric  and  deviatoric  behaviors. 


**DESCRIBE  VOLUMETRIC  BEHAVIOR** 


I 


■  B.l 

NLPC 

(15) 

1  82 

Pi' 

BL1 

P2' 

bL2 

1 

i 

- 

- 

m 

Pn 

BLn 

1  B.3 

NUPC 

(15) 

K  B.4 

Pi' 

Bui 

a 

P2' 

8U2 

i 


Pn>  BUn 


"NLPC"  cards  with  format  (2F10.0)  for 
each  card 


"NUPC"  cards  with  format  (2F10.0)  for 
each  card 


Veen 


NLPC:  Number  of  Dressure/modulus  pairs  describing  the  loading 
bulk  modulus 

B|_-j:  Loading  bulk  modulus  at  mean  pressure  P-j 

NUPC:  Number  of  pressure/modulus  pairs  describing  the  un¬ 
loading  bulk  modulus 

B(j<j :  Unloading  bulk  modulus  at  mean  pressure  P, 
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Octahedrol  Shear  Stress 


**0ESCRI8E  DEVIATORIC  BEHAVIOR** 


C.l  NTPC 

(15) 

C. 2  P1# 

tY1' 

TF1  \ 

p2' 

tY2  • 

tF2  1 

- 

- 

-  1  "NTPC”  Cards 

/  with  format  (3F10.0)  for  each  card 

pn> 

pYn* 

pFn 

NTPC:  Number  of  pressure/yield  stress/failure  stress  points 

describing  the  yield  and  failure  envelopes  as  a  func¬ 
tion  of  mean  pressure 

Tyi,  Tpj:  Octahedral  shear  stress  at  yield  and  failure  respec¬ 
tively  at  mean  pressure  P-j 


CARD  17  Uniaxial  Strain  Model  (UNIAX) 

If  NLNR  =  4,  otherwise  go  to  next  card  group 

A.  NUMAT  (15) 

NUMAT:  Number  of  different  material  property  sets. 

For  each  material  property  set,  provide  uniaxial  loading 
and  unloading  behaviors. 

B. l  NLPC  (15) 

B.2  SX,  ML1 

l  "NLPC''  cards  with  format  (2F10.0)  for 

-  (  each  card 

Sn»  ^Ln  ' 

B.3  NUPC  (15) 

B.4  Sj,  Myi  . 

\  "NUPC"  cards  with  format  (2F10.0)  for 

-  1  each  card 

Sn.  Mun 

NLPC:  Number  of  vertical  stress-loading  constrained  modulus 
pairs 

M(_i ;  Loading  constrained  modulus  at  vertical  stress  S, 

NUPC:  Number  of  vertical  stress-unloading  constrained  modulus 
pairs 


Mm,-:  Unloading  constrained  modulus  at  vertical  stress  Sn- 


CARO  18  Specifications  of  Transmitting  Boundaries 
HEADER  (80  characters) 

For  each  node  on  a  transmitting  boundary: 
INOD,  IDIR,  VISC,  (2I5,F10.0) 


I NOD:  Node  Number 

IDIR:  Specifies  direction  and  phase  of  damping 

IDIR  =  1  Solid  phase  damping  in  x  direction 

2  Solid  phase  damping  in  y  direction 

3  Fluid  phase  damping  in  x  direction 

4  Fluid  phase  damping  in  y  direction 

VISC:  Constant  which  is  proportional  to  the  force  on  a  given 
node  (pcAc),  equal  to  impedence  times  contributory  area 
on  the  node. 

C  equals  Cp  for  IDIR  normal  to  the  transmitting  boun¬ 
dary 

C  equals  Cs  for  IDIR  parallel  to  the  transmitting 
boundary 

Reference:  Lysmer  and  Kuhlemeyer,  "Finite  Dynamic  Model  for 
Infinite  Media,"  ASCE,  EM4,  pp.  859-877,  1969. 
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CARD  19  Initial  In  Situ  Effective  Stress  Conditions 


g 

B 

I 

1 

S 

B 

i 

>  • 

» * 

i 

I 

I 

£ 

B 


k 


If  ISFG  from  Card  3  equals  1  or  2,  otherwise  go  to  next  card 
For  each  element  and  for  each  stress  point, 

SXX,  SYY,  SZZ,  SXY  (4F10.0) 

Initial  effective  skeleton  stresses 

SXX  =  <jx'  (normal  stress  in  x  direction) 

SYY  =  CTy  (normal  stress  in  y  direction) 

SZZ  =  oz'  (normal  stress  in  2  direction) 

SXY  a  TXy  (shear  stress  in  xy  plane) 

CARD  20  Initial  Pore  Fluid  Pressures 

If  ISFG  from  Card  3  equals  1,  3,  or  4,  otherwise  go  to  next 
card 


(PRF(J.I),  J  =  1.  MXIP)  I  =  1,  NUMEL  (8F10.0) 

PRF :  List  of  initial  pore  fluid  pressures  in  each  element  and 
at  each  stress  point,  specified  sequentially  from  1  to 
NUMEL.  MXIP  is  the  number  of  stress  points 


s 


Note  that  tensile  stresses  are  positive,  the  stress  points  are 
at  integration  points  if  IELCEN  =  0  from  Card  8  and  are  at  ele 
ment  center  if  IELCEN  =  1,  and  the  sequence  of  integration 
points  in  element  natural  coordinate  (r-s)  is  from  bottom  to 
top  and  left  to  right  as  shown  in  above  figure. 
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CARD  21  Input  Loading:  for  Specified  Base  Acceleration  Time 
History  (Card  3,  NFG  =  1) 

A.  Header  {80  characters) 

B.  TSCAL,  ASCAL  (2E10.0) 

C.  If  MTYPE  =  1, 

TS( I ) ,  GACL(I)  (12F6.0)  for  1=1,  NUMAP 

If  MTYPE  =  0, 

GACL{I)  (8F9.0)  for  I  =  1,  NUMAP 

TSCAL:  Time  scaling  factor  used  to  extrapolate  available 

ground  motion  data 

ASCAL:  Acceleration  scaling  factor  used  to  extrapolate 

available  ground  motion  data 

TS ( I ) :  Specified  times  in  the  acceleration  time  history 

GACL(I):  Specified  ground  accelerations  at  each 
corresponding  time  TS(I) 


CARO  22  Input  Loading:  For  Specified  Pressure  Time  Histories 
(Card  3,  NFG  =  2) 

A.  Header  (80  characters) 

B.  For  each  of  the  NUMLP  nodes  (Card  6B)  at  which  a  load  is 
appl ied: 

NODE,  I DOF,  LHNO,  CINT  (3I5,E10.3) 

C.  TD( I ) ,  I  =  1,  NUMTP  (7E10.0)  for  (NTYPE  =  1) 

D.  For  each  of  the  NUMLH  (Card  6B)  loading  time  histories: 
DYL(I),  I  =  1,  NUMTP  (7E10.0) 

E.  Comment  Card  (80  characters)  -  to  separate  loadings 


I  3*2, 


IDOF 


N00E :  Node  number 

IDOF  =  1  Total  force  acting  on  a  given  node  in  the  x  direc¬ 
tion 

2  Total  force  acting  on  a  given  node  in  the  y  direc¬ 
tion 

3  Force  acting  on  the  pore  fluid  in  the  x  direction  at 
the  given  node  (note:  force  on  the  fluid  is  part  of 
the  total  force  acting  in  the  x  direction) 

4  Force  acting  on  the  pore  fluid  in  the  y  direction 


LHNO: 


Load  history  number  (one  of  NUMLH  load  histories) 


CINT:  Load  intensity  factor  (used  to  convert  pressure  or 

stress  into  force  on  a  given  node,  based  on  contri¬ 
buting  area) 

TD( I ) :  Set  of  specified  times  used  in  all  the  pressure 

loading  histories 


DYL(I):  A  set  of  pressure  magnitudes  input  for  each  loading 

history  at  corresponding  times  TD(I) 


CARO  23  Input  Loading  for  Specified  Velocity  Time  Histories 
(Card  3,  NFG  =  3  or  4) 

A.  Header  (80  characters) 

B.  For  each  of  the  NUMVEL  (card  7)  nodes  at  which  velocity  is 
appl ied; 

NODE,  I DOF,  LHNO,  CINT  (3I5,F10.0) 

C.  TV ( I ) ,  I  =  1,  NUMVTP  (7E10.0)  (for  NVTYPE  =  1) 

D.  For  each  of  the  NUMVH  (Card  7)  input  velocity  time 

histories: 

SVEL(I),  I  =  1,  NUMVTP  (7E10.0) 


NOOE : 


Node  number 


a 

i 

i 

i 

i 


£ 

R 


IDOF  =  1  Skeleton  motion  in  the  x  direction 

2  Skeleton  motion  in  the  y  direction 

3  Apparent  fluid  motion  in  the  x  direction  relative 
to  the  skeleton  motion  in  the  x  direction 
(apparent  displacement  =  n  (Vx  -  Ux)  where  n  is 
the  porosity,  Vx  is  the  absolute  fluid  displace¬ 
ment  in  the  x  direction  and  Ux  is  the  absolute 
skeleton  displacemeint  in  the  x  direction) 

4  Apparent  fluid  motion  in  the  y  direction  (see 
above  definition) 

LHNO:  Velocity  history  number  (one  of  NUMVH  velocity 

histories) 

CINT:  Velocity  magnification  factor  used  to  change  the 

velocity  amplitude  for  a  given  velocity  input 
(CINT  *  SVEL(I)  gives  velocity  acting  on  the  node 
of  interest) 

TV { I ) :  Set  of  specified  times  used  in  all  the  velocity 

input  histories 


SVEL(I):  A  set  of  velocity  magnitudes  input  for  each 
loading  history  at  corresponding  times  TD(I) 


V 


oooooooooo  non 


C  FTN7X.L 
C  $ F I LES ( 0 , 12) 

C  C  $  EM A  /WAREA/ , /ZAREA/ , /MDCPL/ , /TENCT/ , /OUTPS/ , /OUTHS/ 

C  PROGRAM  TPDAP 

PROGRAM  TPDAP (TAPE5 ,TAPE6 .TAPE 7 , TA PE30 , TA PE4  0 , TA PE60 , 

TAPE61 ,TAPE62,TAPE63,TAPE64,TAPE70,TAPE71 , 

TAPE7  2 .TAPE73.TAPE74 , TAPE3 , TAPE4 , TAPE  1 0 , TAPE  1 1 , 
INPUT, OUTPUT) 

INTEGER*4  Nl,N2fN3,N4tN5fN6,N7,N8,N9,N10fNU,N12,NI3,N14,N15, 

*  N16,N17,N18,N19,N20,N21 ,N22 ,N23,N24,N25,N26,N27,N28,N29,N30 
INTEGER*4  N31 , N32 , N33 , N34 , N35 , N36 , N37 , N38 , N5A , N5B , NLAST 
COMMON  /WAREA/  A(60000) 

COMMON  /TENCT/  TCUT( 4 , 4 ) , HCUT( 4 , 4  ) 

COMMON  /NPARM/  N 1 , N 2 , N 3 , N4 , N 5 , N 6 , N 7 , N8 , N9 , N 1 0 , N 1 1 , N 1 2 , N 1 3 , 

*  N14,N15,N16,N17,N18,N19fN20,N21fN22,N23,N24,N25,N26,N27,N28, 

*  N29,N30,N31,N32,N33,N34,N35fN36,N37,N38,N5A,N5B 
COMMON  /EDT/  ALL(58) 

COMMON  /INTCN/  AA ( 1 5 ) , TETA , B ETA , GAMA , ALPA 
COMMON  /ZAREA/  Z(1500) 

COMMON  /LPARM/  L 1 , L2 , L3 , L4 , L5 , L6 , L7 , L8 , L9 , L 1 0 , MAXIP , MX IP , 

*  MXSH,LBBB,LDDD,NELS 
COMMON  /MATPR/  EMP( 7 ) , A2 , B2 , C2 

COMMON  /GENOP/  NF , NTCSF , ISFG , IP , NLNR , I CON ST , NFG 
COMMON  /GCALP/  NCYCL , DT , NUPDAT , ITER 

COMMON  /MMBDP/  NUMNP , NUMEL , NUMMAT , NVIS , NSKEW , NEQ , MBAND 
COMMON  /ACCLF/  MTYPE , NUMAP , DTXA 
COMMON  /PRELF/  NUMLP , NUMLH , NUMTP , NTYPE , DTXX 
COMMON  /VELLF/  NUMVEL , NUMVH , NUMVTP , N VTYPE , DTXV 

COMMON  /OUTPS/  NPFL , NDC , NSG , NPRINT , NPEL , NPMT , NPRT ( 1 500 ) ,NPM( 1500) 
COMMON  /OUTHS/  NTHS , NHPEL , NHPMT , NHPRT( 100 ) , NHPM( 100 ) 

COMMON  /NALLO/  NSDFL( 8 , 9 , 2 , 2 ) 

INTEGER  LSEG(3) , IS EG (3) ,JSEG(3) ,KSEG(3) ,LBUF(300) , MS EG (3) 

DATA  LSEG/'DREAD'/ 

DATA  ISEG/'DPSMl'/ 

DATA  MSEG/'DPSMA'/ 

DATA  JSEG/ ' DPSM2  * / 

DATA  KSEG/ ' DPSM3 ' / 

CALL  LGBUF( LBUF , 300 ) 

CALL  SEGLD(LSEG.IRO) 

CALL  DREAD 

N 1  =  1 

N  2  =  N1+-4*  NUMNP 
N  3  =  N2+NUMNP 
N  4  =  N3  +  NUMNP 
N  5  =  N4  +  30*NUMMAT 
N  5  A  =  N  5 
N5B  =  N  5 

IF(NSKEW.EQ.O)  CO  TO  140 
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N  5 A  =  N5  +  5-NSKEW 
N5B  =  N5A+2*NSKEW 
140  CONTINUE 

CALL  SEGLD( ISEG.IRl) 
CALL  DPSM1 

CALL  SEGLD(MSEG, IRA) 
CALL  DPSMA 

CALL  SEGLD( JSEG , IR2 ) 
CALL  DPSM2 

CALL  SEGLD( KSEG , IR3 ) 
CALL  DPSM3 


CLOSE( 5) 

CLOSE( 6 ) 

IF(NDC.NE.O.AND.NSG.EQ.O)  CL0SE(7) 
IF(NTHS.EQ. 1 .0R.NTHS.EQ.3)  CL0SE(40) 
IF(NTHS.EQ.2.0R.NTHS.EQ.3)  CL0SE(30) 
CLOSE( 3) 

CL0SE(4) 

CLOSE(IO) 

CLOSE(ll) 

800  STOP 
END 

BLOCK  DATA 
INTEGER*4  NA 
COMMON  /INTCN/  AA(19) 

COMMON  /NPARM/  NA(40) 

COMMON  /EDT/  ANF(58) 


o  o  o  o  o  r> 


C  FTN7X.L 

C  $  EMA  /ZAREA/./OUTPS/./OUTHS/ 

C  PROGRAM  DREAD( 5 ) 

SUBROUTINE  DREAD 
COMMON  /ZAREA/  Z(1500) 

COMMON  /LPARM/  L 1 , L2 , L3 , L4 , L5 , L6 t L7 , L8 , L9 , LI  0 , MAX  IP , MX  I P , MXSH , 

*  LBBB , LDDD , NELS 

COMMON  /GENOP/  NF, NTCSF , ISFG,IP,NLNR, I CONST , NFG 
COMMON  /GCALP/  NCYCL , DT , NUPDAT , ITER 

COMMON  /MMBDP/  NUMNP , NUMEL , NUMMAT , N VIS , NSKEW , NEQ , MBAND 
COMMON  /ACCLF/  MTYPE , NUMA P , DTXA 
COMMON  /PRELF/  NUMLP , NUMLH , NUMTP , NTYPE , DTXX 
COMMON  /VELLF/  NUMVEL , NUMVH , NUMVTP , NVTYPE , DTX V 

COMMON  /OUTPS/  NPFL , NDC , NSG , NPR INT , NPEL , NPMT , NPRT( 1 500 ) , NPM( 1 500) 
COMMON  /OUTHS/  NTHS , NHPEL , NHPMT , NHPRT ( 100 ) , NHPM ( 100 ) 

COMMON  /INTCN/  AA ( 1 5 ) , TETA , BETA , GAMA , ALPA 
COMMON  /BATCH/  IBATCH 

INTEGER  LTITLE(40) ,LSUBTL(40) ,LTIME( 15) , IDATE( 2) , INAME( 2) , 
IPROB(IO) 

OPEN( 5 , FILE= ' NWOIP ' , STATUS® ’OLD ' ) 

0PEN(6,FILE=' NWOOP : :-19:4:200* , STATUS* ' NEW ' ) 

OPEN( 3 , STATUS® 'SCRATCH ' ) 

OPEN ( 4 , STATUS* ' SCRATCH ' ) 

OPEN ( 10 , STATUS® 'SCRATCH ' ) 

OPEN (11, STATUS- 'SCRATCH') 

CALL  DATE(MIN) 

CALL  TIME(MIN2) 

READ( 5,10)  IBATCH 
10  FORMAT( 15) 

I F ( IBATCH . EQ . 1 )  GO  TO  5400 
PRINT  4000 

4000  FORMAT ( IX , "DATA  TO  APPEAR  ON  OUTPUT:  ") 

PRINT  4100 

4100  FORMAT(/////, "INPUT  USER'S  NAME.") 

READ  4110, INAME 
4110  FORMAT ( 2A 10 ) 

PRINT  4300 

4300  FORMAT ( /"INPUT  PROBLEM  DESCRIPTION:  ") 

READ  4310, IPROB 
4310  FORMAT ( 1 OA 10 ) 

PRINT  4400 
4400  FORMAT ( 3 0 ( / ) ) 

PRINT  5000 
5000  FORMAT ( 


#  #  It  #  jf  tut  It  I  It 

If  If  If  If  If  If  If 

If  If  If  If  If  If  If  If 

a  n  n#  n  n  a  if 

ft  ft  if  it  it  it  it  " 

/ 

It  H  It  It  It  H  It  H  It  It 

If  If  If  If  If  If  If  If 

If  If  If  ff  If  ff  ff  H  If 

n  n  n  n  #  ft  n  n  If  ff 

it  it  it  a  it  it  air 

/ 

ft# 

If  If 

if  If 

n  an 

if  if  if  n 

Hit  Hit" 

/ 

Hit 

If  If 

If  If 

nit  If  n 

tm  ait 

It  It  ft  ft" 

/ 

Hit 

§  If  If  If  If  If  If  If 

tm  an 

ff  If  H  it  It  It  It  ft  If  ff 

It  It  It  Hit  It  It  It" 

/ 

HH 

If  If  If  If  If  If  If 

If  If  H* 

ffffft  ft  it  it  it  if  ft  ft 

It  It  It  It  It  It  It  " 

/ 
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• 

HH 

Hit 

HH  HH 

HH 

HH 

HH 

"  / 

fl 

Hit 

Hit 

HH  HH 

HH 

HH 

HH 

"  / 

II 

It  It 

Hit 

HHHHHHHHH 

HH 

HH 

HH 

" 

II 

It  It 

HH 

HHHHHHHH 

HH 

HH 

HH 

"III) 

5100 


5200 


5250 


5300 


5400 

6100 

6000 


PRINT  5 100 , INAME 

F0RMAT( 28X , "NAME  :  ",2A10) 

PRINT  5200  f  MIN 

F0RMAT(28X," YEAR/MONTH/DAY 

PRINT  5250, MIN2 

FORM AT (23X," TIME  :  ",A10," 

PRINT  5300 , IPROB 

FORMAT ( " JOB  DESCRIPTION  : 


WRITE( 6 ,6100) 
FORMAT( 23( / )  ) 
WRITE( 6 , 6000 ) 
FORMAT( 


:  "  ,  A 10 ) 

(MOUNTAIN)") 
", 10A10/) 


36  X, 

HHHHHHHHHH 

HHHHHHH 

HHHHHHHH 

HHHHHHHH 

HHHHHHH  "/ 

36  X, 

HHHHHHHHHH 

HHHHHHHH 

HHHHHHHHH 

HHHHHHHHHH 

HHHHHHHH"/ 

36X , 

HH 

HH  HH 

HH  HH 

HH 

HH 

HH 

HH"/ 

36X , 

HH 

HH  HH 

HH  HH 

HH 

HH 

HH 

HH"/ 

36X , 

HH 

HHHHHHHH 

HH  HH 

HHHHHHHHHH 

HHHHHHHH"/ 

36X , 

HH 

HHHHHHH 

HH  HH 

HHHHHHHHHH 

HHHHHHH  "/ 

36X, 

HH 

HH 

HH  HH 

HH 

HH 

HH 

"/ 

36X , 

HH 

HH 

HH  HH 

HH 

HH 

HH 

"/ 

36X , 

HH 

HH 

HHHHHHHHH 

HH 

HH 

HH 

"/ 

36X , 

HH 

HH 

HHHHHHHH 

HH 

HH 

HH 

"///) 

6125 

6150 

6200 

6210 


6225 

6250 

6300 

6350 


READ  MAIN  AND  SUB  TITLES 

READ( 5 , 1005 )  LTITLE 
READ( 5 , 1005 )  LSUBTL 

IF(IBATCH.EQ.l)  GO  TO  6150 
WRITE( 6,6125)  INAME 
FORMAT( 57X , "NAME  :  "2A10) 
WRITE( 6 , 6200)  MIN 
FORMAT(//52X, "YEAR/MONTH/DAY 
WRITE( 6,6210)  MIN2 
FORMAT(57X, "TIME  :  ",A10," 

I F ( IBATCH . EQ . 1 )  GO  TO  6250 
WRITE(6,6225)  IPROB 
FORMAT(32X,"JOB  DESCRIPTION  : 
GO  TO  6350 

WRITE( 6 , 6300 )  LTITLE 
FORMAT(//32X,"JOB  DESCRIPTION 
WR ITE( 6 , 6 100 ) 


:  "  ,  A  1 0 ) 
(MOUNTAIN)") 


1 0 A  1 0/ ) 


" , 4 OA  2  ) 


non  o  o  non  o  o  ooo  o  o  o o n  n  ooo  o  ooooooooo 


WR ITE( 6 , 2005  )  LTITLE 
WR ITE( 6 , 2005 )  LSUBTL 

RECORD  START  TIME 

CALL  FTIME(LTIME) 

WRITE(6, 1005)  (LTIME(I), 1-1,15) 

WRITE( 1 , 1005)  (LTIME(I), 1-1,15) 

GENERAL  OPTIONS 

READ  (5,1010)  NF,NTCSF,ISFG,IP,NLNR,ICONST,NFG 

WRITE( 6 , 20 10 )  NF.NTCSF, ISFG, IP 
WRITE(6 , 2015 )  NLNR , ICONST , NFG 

GLOBAL  CALCULATION  PARAMETERS 

READ  (5,1020)  NCYCL , DT , NUPDAT , ITER 

WRITE(6 , 2020)  NCYCL , DT , NUPDAT , ITER 

MESH,  MATERIAL  AND  BOUNDARY  PARAMETERS 

READ  (5,1030)  NUMNP , NUMEL , NUMMAT , NVIS , NSKEW 

WRITE( 6 , 2030)  NUMNP , NUMEL , NUMMAT , NVIS , NSKEW 

IF(NFG.NE.l)  GO  TO  100 

ACCELERATION  LOADING  FUNCTIONS  (  NFG  =  1  ) 

READ  (5,1040)  MTYPE , NUMAP , DTXA 

WRITE( 6 , 2040 )  MTYPE , NUMAP , DTXA 

100  IF( NFG . EQ . 1 .OR . NFG . EQ . 3 )  GO  TO  200 

PRESSURE  LOADING  FUNCTIONS  (  NFG  =  2  OR  4  ) 

READ  (5,1050)  NUMLP , NUMLH , NUMTP , NTY PE , DTXX 

WRITE(6, 2050)  NUMLP , NUMLH , NUMTP , NTY PE , DTXX 

200  I F( NFG . LT . 3 )  GO  TO  300 

VELOCITY  LOADING  FUNCTIONS  (  NFG  =  3  OR  4  ) 

READ  (5,1060)  NUMVEL , NUMVH , NUMVTP , NVTYPE , DTXV 
C 

WRITE (6, 2060)  NUMVEL , NUMVH , NUMVTP , NVTYPE , DTXV 


onoooooooo  no  o  ooooo 


300  CONTINUE 

PARAMETERS  REQUIRED  FOR  STORAGE  USE 
READ  (  5,1070)  I VMDK , IELCEN , MAX  IP , MXSH 
WRITE(6 , 2070)  I VMDK , IELCEN .MAXIP , MXSH 
NELS  =  0 

I F ( I VMDK . EQ . I )  NELS  =  NUMEL 
IF(IELCEN.EQ.O)  GO  TO  400 
MAXIP  =  MAXIP+1 
MXIP  =  1 
GO  TO  450 
400  CONTINUE 

MXIP  -  MAXIP 
450  CONTINUE 

LI  =  I 
L2  »  Ll+1 
L3  -  L2+2*8*MAXIP 
L4  *  L3+8*MAXIP 
L5  -  L4+MAXIP 
L6  =  L5+MAXIP 
L7  =  L6+MAXIP 
LBBB  *  L7-L1 

L8  =  L7+16*MAXIP 

L9  *  L8+MXSH*MXIP 
L10  »  L9+MXIP 
LDDD  *  L10-L8 


LMAX  =  1500 

IF(LIO.LE.LMAX)  GO  TO  480 

WRITE( 6 , 2075 )  LMAX.L10 
STOP 

480  CONTINUE 

OUTPUT  STRESS  AND/OR  MOTION  PROFILES  SPECIFICATIONS 
READ  (5,1080)  NPFL , NDC , NSG , NPR INT , NPEL , NPMT 
WRITE (6, 2080)  N PFL , N DC , NSG , V  PR  I  NT , NPEL , NPMT 

IF(NDC.NE.O.AND.NSG.EQ.O)  OPEN ( 7 , FI LE= ' DI STR : : -  1 7 ’ , STATUS = ' NEW ' ) 
I F( NPFL . EQ . 1 .0R.NPFL.EQ.3)  GO  TO  8 
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IF(NPFL. EQ. 2 )  GO  TO  17  ^ 

E 

DO  6  1=1 , NUMEL 
NPRT(I)  =  I 
6  CONTINUE 

IF( NPFL . EQ . 4 )  GO  TO  9 
17  CONTINUE 


DO  7  1=1 , NUMNP 
NPM(I)  =  I 

7  CONTINUE 

GO  TO  9 

8  CONTINUE 

READ  ( 5 , * )  (NPRT(I) , 1=1 ,NPEL) 

WRITE( 6 , 2082 ) 

WRITE( 6 , 2084)  (NPRT(I) ,I=1,NPEL) 

IF( NPFL . EQ . 3 )  GO  TO  9 

READ( 5 , * )  ( NPM( I ) , 1=1 , NPMT) 

WRITE(6, 2086) 

WRITE(6, 2088)  ( NPM( I ) , 1=1 , NPMT) 

9  CONTINUE 

OUTPUT  STRESS  AND/OR  MOTION  TIME  HISTORY  SPECIFICATIONS 

READ  (5,1090)  NTHS , NHPEL , NHPMT 

WRITE( 6 , 2090)  NTHS , NHPEL , NHPMT 

IF(NTHS.EQ.O)  GO  TO  700 
IF(NTHS.EQ. 1 )  GO  TO  600 

LIST  SPECIFIED  ELEMENT  NUMBERS  IN  SEQUENTIAL  ORDER 
(  NTHS  =  2  OR  3  ) 

OPEN(30,FILE='THSTR: : -19: 4: 200' , STATUS = ’ N EW ’ ) 

WR  ITE(  6 , 2092  )  NHPEL 

READ (5,*)  (NHPRT( I) ,1=1 .NHPEL) 

WRITEC6, 2093) 

WR  ITE(  6 , 2094  )  (  NH  PRT  (  I  )  ,  I  =  1  ,  Nil  PEL  ) 

600  CONTINUE 

I F( NTHS . EQ . 2 )  GO  TO  700 


s 


e 

K 

S 

i 


8 

i 

1 


s: 


I 


K 

& 


s 


1 


8 


£ 

i 


c 

C  LIST  SPECIFIED  NODE  NUMBERS  IN  SEQUENTIAL  ORDER 

C  (  NTHS  =  I  OR  3  ) 

C 

C  0PEN(40,FILE='THDIS: : - 1 9 : 4 : 200 ’ , STATUS =' N EW '  ) 
WRITE( 6 , 2095 )  NHPMT 
READ( 5 , * )  (NHPM(I) , 1=1 .NHPMT) 

WRITE( 6 , 2096 ) 

WRITE( 6,2097)  ( NHPM( I ) , 1-1 , NHPMT) 

C 

700  CONTINUE 
C 

C  NUMERICAL  TIME  INTEGRATION  OPTIONS 
C 

READ  (5,1100)  TETA, BETA, GAMA, ALPA 
WRITE (6, 2100)  TETA, BETA, GAM A, ALPA 
C 

1005  FORMAT ( 40A2  ) 

1010  FORMAT (715) 

1020  F0RMAT(I5,F10. 0,215) 

1030  FORMAT( 515 ) 

1040  F0RMAT(2I5,F10.0) 

1050  F0RMAT(4I5,F10.0) 

1060  F0RMAT(4I5,F10.0) 

1070  F0RMAT(4I5) 

1080  FORMAT ( 615 ) 

1090  FORMAT( 315 ) 

1100  FORMAT ( 4F 10 . 0 ) 

C 

2005  FORMAT ( 40A2 ) 

C 


2010  FORMAT ( ///  *  GENERAL  OPTIONS  * 

.*  . EQ . 1  STATIC  ANALYSIS  * 

.*  . EQ . 2  CONSOLIDATION  ANALYSIS  * 

.*  . EQ . 3  TWO-PHASE  DYNAMIC  ANALYSIS  -  =  *,I5 

.*  . EQ . 0  TWO-PHASE  DYNAMIC  ANALYSIS  * 

.*  .EQ.l  CONSOLIDATION  ANALYSIS  * 

.*  . EQ . 2  ONE-PHASE  SOLID  DYNAMIC  ANALYSIS  * 

.*  . EQ . 3  ONE-PHASE  FLUID  DYNAMIC  ANALYSIS  =  *,I5 

.*  . EQ . 0  NO  INITIAL  STRESS  * 

.*  .EQ.l  SOLID  AND  FLUID  INITIAL  STRESS  * 

.*  . EQ . 2  ONLY  SOLID  INITIAL  STRESS  * 

.*  . EQ . 3  ONLY  FLUID  INITIAL  STRESS  * 

.*  . EQ . 4  IMPOSED  FLUID  INITIAL  STRESS  - .  =  *,I5 

.*  .EQ.l  PLANE  STRESS  ANALYSIS  * 

.*  . EQ . 2  PLANE  STRAIN  ANALYSIS  * 

.*  . EQ . 3  AX  I S YMMETR  T  C  ANALYSIS  * 

.*  . EQ . 4  SPHERICAL  SYMMETRY  -  =  *,I5 

2015  FORMAT ( 

.*  . EQ . 0  LINEAR  ELASTIC  MATERIAL  MODEL  * 

.*  .EQ.L  DECOUPLED  ELASTO-PLAST TC  MODEL  * 


// 

/ 

/ 

// 

/ 

/ 

/ 

// 

/ 

/ 

/ 

/ 

// 

/ 

/ 

/ 

//) 

/ 

/ 


I 


vv 


.*  . EQ . 2  CAP  MODEL  (AVAILABLE  SOON) 

.*  . EQ . 3  AFWL  ENGINEERING  MODEL 

.*  . EQ . 4  UNIAXIAL  STRAIN  MODEL 

.*  . EQ.5  ARA2D  MODEL  - 

.*  . EQ . 0  LUMPED  MASS 

•.*  .  EQ.  I  CONSISTENT  MASS  - 

.*  . EQ . 1  BASE  ACCELERATIONS 

.*  . EQ . 2  PRESSURE  LOAD 

.*  .  EQ . 3  SPECIFIED  VELOCITY 

.*  . EQ . 4  BOTH  PRESSURE  AND  VELOCITY  - 

2020  FORMAT ( 

.*  NUMBER  OF  CYCLES  - 

.*  GLOBAL  TIME  STEP  - 

.*  NUMBER  OF  CYCLES  BETWEEN  UPDATES  - 

.*  NUMBER  OF  ITERATIONS  - 

2030  FORMAT( 

.*  NUMBER  OF  NODES  - 

.*  NUMBER  OF  ELEMENTS  - 

.*  NUMBER  OF  DIFFERENT  MATERIALS  - 

.*  NUMBER  OF  NODES  ON  TRANSMITTING  BOUNDARY 
.*  NUMBER  OF  ELEMENT  SIDES  ON  SKEW  BOUNDARY 

2040  FORMAT( 

.*  ACCELERATION  LOADING  FUNCTIONS 
.*  . EQ . 0  CONSTANT  TIME  INCREMENTS 

.*  . EQ . 1  SPECIFIED  TIMES  - 

.*  NUMBER  OF  ACCEL.  TIME  PAIRS  - 

.*  CONSTANT  TIME  INCREMENT  - 

2050  FORMAT ( 

.*  PRESSURE  LOADING  FUNCTIONS 

.*  TOTAL  NUMBER  OF  LOAD  POINTS  - 

.*  NUMBER  OF  PRESSURE  TIME  HISTORIES  - 

.*  NUMBER  OF  PRESSURE-TIME  PAIRS  - 

.*  . EQ . 0  CONSTANT  TIME  INCREMENTS 

.*  .EQ. 1  SPECIFIED  TIMES  - 

.*  CONSTANT  TIME  INCREMENT  - 

2060  FORMAT ( 

.*  VELOCITY  LOADING  FUNCTIONS 

.*  TOTAL  NUMBER  OF  VELOCITY  POINTS  - 

.*  NUMBER  OF  VELOCITY  TIME  HISTORIES  - 

.*  NUMBER  OF  VELOCITY-TIME  PAIRS  - 

.  *  .  EQ .  0  CONSTANT  TIME  INCREMENT 

.  *  . EQ.l  SPECIFIED  TIMES  - 

.*  CONSTANT  TIME  INCREMENT - - - 

2070  FORMAT ( 

.*  PARAMETERS  REQUIRED  FOR  STORAGE  USE 


❖ 

/ 

r 

/ 

* 

/ 

= 

*  ,  15 

II 

/ 

= 

*  ,  1 5 

II 

* 

/ 

! 

♦ 

/ 

= 

* » 15 

//) 

_ 

* ,  15 

// 

= 

*,E1I .4 

// 

= 

*,I5 

// 

— 

* ,  15 

III) 

_ 

* » 15 

II 

= 

* ,  1 5 

// 

= 

*  *  15 

// 

= 

*,I5 

// 

= 

* » 15 

III) 

* 

// 

* 

/ 

= 

*,  15 

// 

= 

*  ,  1 5 

// 

— 

* , El  1 . 4 

HD 

// 

= 

*.I5 

// 

= 

*  ,  1 5 

// 

= 

*,  15 

// 

* 

/ 

= 

* ,  1 5 

// 

* , El  1 . 4 

III) 

->* 

V 

II 

= 

*,I5 

II 

= 

*,  15 

II 

= 

*,  15 

// 

*«■* 

/ 

= 

=M  5 

II 

— 

*  ,  E 1  1 . 4 

III) 

* 

// 

* 


c 


. EQ . 0  USE  DISK  AS  SEQUENTIAL  TAPE 

. EQ . 1  USE  DISK  AS  VIRTUAL  MEMORY  -  = 

. EQ . 0  COMPUTE  STRESS  AT  INTEGRATION  POINT. 
. EQ . I  COMPUTE  STRESS  AT  ELEMENT  CENTER  -  = 

MAXIMUM  NUMBER  OF  INTEGRATION  POINTS  -  = 

MAX.  NUMBER  OF  STRESS/STRAIN  HISTORY  DATA  = 


2075  FORMAT( /// 

.*  Z-DIMENS ION  SET  IN  PROGRAM  - 

.*  REQUIRED  Z-DIMENSION  FOR  PROBLEM 


C 


2080  FORMAT ( 


* 

* 

* 

* 

* 

* 

* 

* 

.  * 
* 

.  * 
* 

* 

* 


OUTPUT 
.  EQ .  0 
.EQ.  1 
.  EQ .  2 
.  EQ .  3 
.  EQ .  4 
.  EQ .  0 
.EQ.  1 
.  EQ .  0 
.  EQ .  1 
NUMBER 
NUMBER 
NUMBER 


PROFILE  SPECIFICATIONS 
AT  ALL  NODES  AND  ELEMENTS 
AT  SPECIFIED  NODES  AND  ELEMENTS 
MOTIONS  AT  ALL  NODES 
STRESSES  AT  SPECIFIED  ELEMENTS 

STRESSES  AT  ALL  ELEMENTS  - 

WRITE  OUTPUT  ON  HARD  DISK 

WRITE  OUTPUT  ON  FLOPPY  DISK  - 

WRITE  OUTPUT  IN  ONE  FILE  . 

WRITE  OUTPUT  IN  SPECIFIED  FILES  -■ 

OF  CYCLES  BETWEEN  EACH  OUTPUT  - 

OF  ELEMENTS  IN  OUTPUT  STRESS  PROF. 
OF  NODES  IN  OUTPUT  MOTION  PROFILES 


C 

2082  FORMAT ( /  *  ELEMENTS  TO  BE  PRINTED  - 

2084  FORMAT( 1515) 

2086  FORMAT ( /  *  NODAL  POINTS  TO  BE  PRINTED  - 

2088  FORMAT ( 1515) 

C 

2090  FORMAT ( 

.*  OUTPUT  TIME  HISTORY  SPECIFICATIONS 

.*  . EQ . 0  DO  NOT  PRINT  TIME  HISTORY  DATA 

.*  . EQ . I  MOTION  TIME  HISTORIES 

.*  . EQ . 2  STRESS  TIME  HISTORIES 

.*  . EQ . 3  MOTION  AND  STRESS  TIME  HISTORIES  -  = 

.*  NUMBER  OF  ELEMENTS  TO  BE  PRINTED - - 

.*  NUMBER  OF  NODES  TO  BE  PRINTED - - 

C 

2092  FORMAT ( / 

.*  NUMBER  OF  ELEMENTS  TO  BE  PRINTED - - 

2093  F 0 R M A T ( /  *  ELEMENTS  TO  BE  PRINTED  - 

2094  FORMAT ( 1515) 

2095  FORMAT ( / 

.*  NUMBER  OF  NODES  TO  BE  PRINTED - - 

2096  FORM AT ( /  *  NODAL  POINTS  TO  BE  PRINTED  - 

2097  FORMAT! 1515) 

C 

2100  FORMAT!///  *  INTEGRATION  CONSTANTS 

.*  TETA  - - 


* 

/ 

*,I5 

// 

$ 

/ 

*.I5 

// 

*,  15 

// 

*,I5 

III ) 

*,110 

// 

*,110 

///) 

* 

// 

>1= 

/ 

* 

/ 

* 

/ 

/ 

*,I5 

// 

* 

/ 

*,I5 

// 

* 

/ 

*,I5 

// 

* » 15 

// 

*,15 

// 

*,I5 

III ) 

* 

/) 

/) 

* 

// 

* 

/ 

* 

/ 

* 

/ 

* ,  15 

// 

* ,  1 5 

// 

* ,  1 5 

III ) 

*  ,  T5 

/) 

$ 

/) 

*  ,  15 

/) 

/) 

// 

*  ,  E 1  0 . 3 

// 
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o  o  o  o  n 


.*  BETA 
.*  GAMA 
.*  ALPA 


CALL  SEGRT 

RETURN 

END 


FTN7X , L 

C  $  EM A  /WAREA/ 

PROGRAM  DPSM1 ( 5) 

SUBROUTINE  DPSM1 

INTEGER* 4  N1,N2,N3,N4,N5,NN,N5A,N5B 
INTEGER  LTIME( 15) 

COMMON  /WAREA/  A(60000) 

COMMON  /NPARM/  N 1 , N2 , N3 , N4 , N5 , NN ( 33 ) , N 5A , N5B 
COMMON  /GCALP/  NCYCL , DT , NUPDAT , ITER 

COMMON  /MMBDP/  NUMNP , NUMEL , NUMMAT , N VIS , NSKEW , N EQ , MBAND 


WRITE( 1 , * )  ^BEFORE  NODE* 

CALL  NODE(A(Nl) ,A(N2) ,A(N3) , NUMNP, NEQ) 
WRITE( 1 , * )  * AFTER  NODE* 


CALL  EDATA(A(NI) .NUMEL .MBAND, NUMNP, A(N4) .NUMMAT ,A(N5) ,A(N5A) , 
*  NSKEW, A(N2) ,A(N3) ) 

WRITE( 1 , * )  * AFTER  EDATA* 


CALL  CNSTS(DT) 

CALL  FTIME(LTIME) 

WRITE(l.I)  (LTIME(I) ,1-1 ,15) 

1  FORMAT(*AFTER  DPSM1  — *  ,  15A2) 


CALL  SEGRT 

RETURN 

END 

SUBROUTINE  NODE( ID , R , Z , NUMNP , NEQ) 


NODAL  POINT  INPUT  AND  GENERATION 


DIMENSION  R ( 1 )  ,Z(1) , ID(NUMNP,4) ,NID(4) 
EMA  R , Z , ID 


ND  =  3 
KO  =  1 


DO  5  1=1,4 
5  NID(I)  =  0 


11  READ  (5,100)  N,(ID(N,I),I=1,4),R(N),Z(N),KN 
DO  60  1=1,4 
IF  ( ID( N , I ) )  61,62,63 

61  NID(I)  =  -1 
I  D  (  M  ,  I  )  =  1 
GO  TO  60 

62  TF(NIDCI).EQ.-l)  ID(N,I)  =  1 
GO  TO  60 

6  3  N T  D ( I )  =  0 
60  CONTINUE 


ono  n  n  n  n  n  n  non  non  non  non 


IF(KO.EQ.  1  )  GO  TO  12 

CHECK  IF  GENERATION  NEEDED 

IF  (KN)  10,10,20 
12  K0  =  0 
10  CONTINUE 
NUMINT  =  1 
GO  TO  15 

GENERATE  NEW  NODES 

20  NUMINT  =  (N-NI)/KN 

DR  =  (R(N)-R(NI) )/NUMINT 
DZ  =  (Z(N)-Z(NI))/NUMINT 
NUMINT  =  NUMINT-1 
DO  21  J-l, NUMINT 
NN  =  NI+J*KN 
R ( NN )  >  R ( NN-KN )+DR 
Z ( NN )  =  Z( NN-KN )+DZ 

SET  BOUNDARY  CODES... SAME  AS  FIRST  JOINT  SERIES 
DO  22  JJ=1 ,4 

IF(ID(NI,JJ)-1)  24,26,25 
GENERATE  NEW  MASTER  NODES 


25 

ID(NN.JJ) 
GO  TO  22 

=  ID(NI,JJ) + J*KN 

26 

ID( NN , JJ ) 
GO  TO  22 

=  ID(NI.JJ) 

24 

ID(NN, JJ) 

=  0 

22 

CONTINUE 

21 

CONTINUE 

15 

NI  =  N 

CHECK  FOR  LAST  NODAL  POINT 

IF(NUMNP-NI)  13,13,11 
13  CONTINUE 


PRINT  ALL  NODAL  DATA 

WRITE(6,202) 

W  R  r  T  E  (  6 , 2  0  4  ) 

DO  50  N  = 1 , N U M N P 

50  WR ITE( 6 , 203 )  N , ( I D ( N , I ) , I  =  1 , 4 ) , R ( N ) , Z ( N  ) 

SPECIFY  GLOBAL  EQUATION  NUMBER  FOR  FREE  DOFS 
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,V>i 

vf 


o 


NEQ  =  0 
N'EQH  =  0 
DO  75  1=1, NUMNP 
DO  70  J-l ,4 
I F ( I D (  I  ,  J)  )  68,65,68 
65  NEQ  =  NEQ+1 
I D (  r  ,  J  )  =  NEQ 
GO  TO  70 
68  ID( I , J  )  =  -1 
70  CONTINUE 
75  CONTINUE 
NEQH  =  NEQ 

WRITE( 6 , 205)  NEQ, NEQH 

RETURN 
C 

100  F0RMAT(5I5,2F10.0,I5) 

104  FORMAT(I5,4F10.4) 

202  FORMAT ( 2 6H1 COMPLETE  NODAL  POINT  DATA  //  ) 

203  F0RMAT(I5,4I5,2F10.3,I5) 

204  FORMAT ( 

.*  NODE  BOUNDARY  CODES  NODAL  COORDINATES  */ 


.*  NO  ISX  ISY  IFX  IFY  XA  YA  */) 

205  F0RMAT(//30H  NUMBER  OF  EQUATIONS  .  ,110// 

*  30H  NUMBER  OF  ROWS  OF  H  .  ,110//) 

C 

END 

C  $ EMA  /MDCPL/ 


SUBROUTINE  EDATA ( ID , NUMEL , MBAND , NUMNP , PROP , NUMMAT , I SKEW , ACS , 

*  NS  K  EW , X , Y ) 

COMMON  /EDT/  NEL , IXS ( 1 6 ) , IXF( 16) , NP ( 8 ) , MIDSID( 4 ) , INN ( 3 ) , 

*  ISF( 8 ) , MC , MCC 

COMMON  /MDCPL/  BLN ( 1 1 , 2 , 5 ) , BUN ( 1 1 , 2 , 5 ) , TY F ( 1 1 , 3 , 5 ) , N LP ( 5 ) , 

*  NUP(5) ,NTP(5) ,NCO( 5) 

DIMENSION  I D( NUMNP, 4) , A A ( 58 ) , LM ( 3 2 ) , PROP ( 30 , 1 ) , I SKEW ( 5 ,  1 )  , 

*  ACS ( 2 , 1 ) , X ( 1 ) , Y ( I ) 

C  EMA  ID,PROP,ISKEW,ACS,X,Y 

EQUIVALENCE  ( N EL , A A ( 1 ) ) 

C 

REWIND  3 
MBAND  =  0 
MBANDH  =  0 
NEL  =  0 

CALL  IZERO( ISF , 8 ) 

CALL  IZER0(INN,3) 


WR ITE( 6 , 2000 ) 

2000  FORMAT ( 

.  *  NEL  MAT  KS  KF  I NTR  INTS  I  J  K  L*  , 

.*  Ml  M2  M3  M  4  * / ) 
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(CVvr  > J V.  -'.1  J-.  -f  ,V?ji 


c 


30 

35 


610 

620 


C 

c 

c 


625 


630 


MrI^6;r\"BEF0RE  »«  «0" 
uo  650  r  r  =  1 , NUMEL 

ISF(  1  )  ’  1°SaT  N  EL  ’ MAT  ’  k’S  ’  K  F  *  1 NTR  *  INTS  ,  NP 
I S  F ( 3 )  =  KS 
rSF( 4 )  *  KF 
is FC  5 )  a  INTR 
ISF(6)  a  INTS 

NC  a  4 
DO  35  Ial,4 

nc(~Pnc+i)‘EQ'°)  G0  to  30 

MIDSID(I)  a  1 
NP(NC)  =  NP( 1+4 ) 

GO  TO  35 
MIDSID(I)  =  o 
CONTINUE 
NCC  a  2*NC 
MC  =  NC 
MCC  a  NCC 

WRITEC6, 1007)  HEL, MAT, KS.RP.INTR, INTS, NP 

call  izero(lm,32) 
l  =  o 

DO  620  1=1 , NC 
N  =  NP( I) 

DO  610  J=l,4 
I  *  L+l 

LMCL)  =  ID(Nf J) 

CONTINUE 
CONTINUE 

MM  =  1 

DO  625  1=1, NC 
IXS(I)  a  LM(MM) 

TYF^tNC)r=  LM(MM+1) 

JXF(I)  =  LM(MM+2) 

IXFd+NC)  =  LM(MM+3) 

MM  =  MM+4 

CONTINUE 

WRITE  (3)  AA 

NEE  =  4*NC 

DO  640  1=1 , NEE 
=  LM(  I ) 

J F( L )  640,640,630 
DO  635  J  = 1 , N E E 
N  =  LM(J) 
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0 


I  F(  N  )  635,635,632 
632  KL  =  IABS(N-L) 

IF(KL.GT.MBAND)  MBAND  =  K L 
635  CONTINUE 
640  CONTINUE 
650  CONTINUE 

WR ITE( 6 , * )  "AFTER  DO  650" 

MBAND  -  MBAND+1 

MBANDH  -  MBAND 

WRITE(6 ,2010)  MBAND, MBANDH 

READ  SKEW  BOUNDARY  CONDITIONS 

IF(NSKEW.EQ.O)  GO  TO  680 
DO  660  I* 1 , NSKEW 

READ( 5,1010)  MEL,IND,JND,ISN,MSF 
WRITE(6, 1010)  MEL, IND, JND, ISN.MSF 
ISKEW(l.I)  =  MEL 
XI  =  X(IND) 

XJ  =  X(JND) 

YI  -  Y(IND) 

YJ  »  Y(JND) 


660 

680 

1010 


700 

2020 


CALL  BSKEW(ISN,XI, YI,XJ, YJ.INX, JNX , KNX , MIDSID , CALPA , SALPA) 
ISKEW( 2,1)  »  INX 
ISKEW( 3,1)  =  JNX 
ISKEW(4,I)  »  KNX 
ISKEW(5,I)  «  MSF 
ACS (1,1)  =  CALPA 
ACS (2,1)  =  SALPA 
CONTINUE 
CONTINUE 
FORMAT( 515) 


READ  MATERIAL  PROPERTIES 

WRITE(6 , 2020) 

DO  700  I-l.NUMMAT 

READ(5, 1020)  ( PROP( J , I ) , J=1 , 30 ) 

WRITE( 6 , 2022 )  ( PR0P( J , I ) , J=1 , 8) 

WR ITE( 6 , 2024 )  ( PROP( J , I ) , J  =  9 , 1 6  ) 
WRITE( 6 , 2026 )  ( PROP ( J , I ) , J-17,24) 
WRITE (6, 2028)  ( PROP( J , I ) , J=2 5 , 30 ) 


WR ITE( 6 , 2024 )  (PROP( 
WRITE( 6 , 2026 )  (PROP( 
WRITE( 6 , 2028)  (PROP( 
CONTINUE 
FORMAT ( 

, ^MATERIAL  PARAMETERS 


2022  FORMAT ( 
.*  ELS 
.*  TENS 
.*  ST  I F  AC 


* , FI  1 .0  / 

*, FI  I .0  / 

*  ,  F 1  1  .  2  / 


❖ 

• 

SHEFAC 

3 

*  ,  FI  l  .  2 

/ 

'i* 

• 

PMN 

= 

*  ,  F 1  1  .  2 

/ 

•  ^ 

■  BK 

3 

*  ,  F 1 1 .  1 

/ 

• 

G 

3 

*  ,  F 1  1  .  1 

/ 

.  # 

D8 

3 

*  ,  F 1 1  .  2 

//) 

2024  FORMAT( 

,  * 

D9 

3 

*,E11.4 

/ 

.  * 

DIO 

3 

*,E11.4 

i 

i 

.  * 

Dll 

3 

*  ,  E 1 1 . 4 

/ 

* 

• 

D12 

3 

*  ,  E 1 1 . 4 

/ 

•  * 

D 1 3 

3 

*  ,  E 1 1 . 4 

/ 

* 

• 

D14 

3 

*  ,  E 1 1 . 4 

/ 

* 

• 

D15 

3 

*,E11 .4 

/ 

.  * 

D16 

3 

*,E11.4 

//) 

2026  FORMAT ( 

#  * 

D17 

3 

*,E11.4 

/ 

* 

• 

D 1 8 

3 

*  ,  E 1 1 . 4 

/ 

£ 

• 

RO 

3 

* , El  1 . 4 

/ 

.  * 

ROF 

3 

*  ,  El  1 . 4 

/ 

* 

• 

D21 

3 

*  ,  El  1 . 4 

/ 

.  * 

D22 

3 

*, Ell. 4 

/ 

.  * 

D23 

3 

*  ,  El  1 . 4 

/ 

.  * 

D24 

- 

* , El  1 . 4 

//) 

2028  FORMAT ( 

•  * 

D25 

3 

* , El  1 . 4 

/ 

• 

CM 

a 

* , FI  1 .  1 

/ 

•  * 

POR 

3 

* , FI 1 . 3 

/ 

.  * 

RXX 

a 

* , El  1 . 4 

/ 

•  * 

RYY 

a 

* , El  1 . 4 

/ 

.  * 

RXY 

= 

*  ,  El  1 . 4 

//) 

IF(NLNR.NE.l)  GO  TO  50 
READ( 5,1)  NUMAT 
FORMAT ( 15 ) 

DO  40  11=1 .NUMAT 

R EA D ( 5 , 1 )  NLPC 
DO  10  1=1, NLPC 

READ (5, 2)  BLN (I, 1 , II) ,BLN(I,2,II) 
0  CONTINUE 

FORMAT ( 2  F 1 0 . 0 ) 

READ( 5 , 1 )  NUPC 
DO  20  1=1 , NUPC 

READ( 5, 2)  BUN( I , 1 , II ) ,BUN( I ,2, II) 
CONTINUE 


0 


uj  ro 


READ( 5,1)  NTPC 
DO  25  1*1, NTPC 

READ( 5 , 3 )  TYF(I,1 , 1 1 ) ,TYF( l , 2 , 1 1 ) ,TYF( 1 , 3 , 1 1 ) 
5  CONTINUE 

FORMAT ( 3F10 . 0 ) 

NLP(’II  )=NLPC 
NUP( II) =  NUPC 
NTP( II) =NTPC 

0  CONTINUE 

0  CONTINUE 

IF(NLNR.NE.4)  GO  TO  150 

READ( 5,1)  NUMAT 
DO  140  11*1 , NUMAT 

READ( 5,1)  NLPC 
DO  110  1*1 , NLPC 

READ( 5,2)  BLN (1,1 ,11) , BLN (I, 2 ,11) 

10  CONTINUE 

READ( 5,1)  NUPC 
IF(NUPC.EQ.O)  GO  TO  130 
DO  120  1*1, NUPC 

READ( 5,2)  BUN(I,1,II) ,BUN(I,2,II) 

20  CONTINUE 

30  CONTINUE 

NTP( II )=1 
NUP( II) =NUPC 
IF(NUPC.EQ.O)  NUP ( I I ) = 1 
NLP( II )=NLPC 

40  CONTINUE 

50  CONTINUE 

1020  F0RMAT(8E10.3) 

RETURN 

1007  FORMAT(  1415) 

20  LO  FORMAT  (  //* .  BAND  WIDTH  .  *,I1 

♦  * .  BAND  WIDTH  FOR  H  .  *,I1 

END 

SUBROUTINE  CNSTS(DT) 

COMMON  / I NTCN /  A( 1 5 ) , TETA , BETA , GAMA , ALPA 
TETE  =  TETA -TETA 
TAU  *  TETA-DT 


A (  1 )  =  1 ,0/( BET AETATA  ) 

A ( 2 )  =  TAU 

A ( 3 )  =  (0.5-BET A)* TATA 
A ( 4 )  =  GAMA/(BETA-TAU) 

A (  5 )  =  ( 1.0-BETA/GAMA)*TAU 
A( 6)  =  (0. 5-BET A/GAMA)#TATA 
A ( 7 )  -  1 .0/(TETE*TETA ) 

A( 8 )  -  ( 1 .0-1 .0/TETE)*DT 

A( 9 )  -  0.5*DT*DT*( 1 .0-1 .0/TETA) 

A ( 1 0 )  -  GAMA/( BETA*TETE*TAU ) 

A (  1 1 )  -  1.0-GAMA/($ETA*TETE) 

A  (  1 2  )  *  ( 1 .0-GAMA/(2.0*BETA*TETA) )*DT 
A  ( 1 3 )  =  1 .0/ (BETA*TETA*TATA) 

A  (  1 4  )  *  -1.0/(BETA*TETA*TAU) 

A  ( 1 5  )  =  1 .0-1 .0/(2. 0*BETA*TETA) 

RETURN 

END 

SUBROUTINE  BSKEW( ISN , XI , YI , X J , YJ , INX , JNX , KNX , MIDSID , CALPA , SALPA ) 
DIMENSION  MIDSID(4) 

GO  TO  (10,20,30,40)  ISN 
10  INX  «  2 
JNX  -  1 

CALL  ASKNX(KNX, MIDSID, ISN) 

GO  TO  50 
20  INX  =  3 
JNX  *  2 

CALL  ASKNX(KNX, MIDSID, ISN) 

GO  TO  50 
30  INX  =  3 
JNX  =  4 

CALL  ASKNX(KNX, MIDSID, ISN) 

GO  TO  50 
40  INX  =»  4 
JNX  =  1 

CALL  ASKNX(KNX, MIDSID, ISN) 

50  CONTINUE 

XL  =  (XJ-XI)**2+(YJ-YI)**2 
XL  =  SQRT(XL) 

CALPA  =  ( XJ-XI ) /XL 
SALPA  =  (YJ-YI)/XL 
RETURN 
END 

SUBROUTINE  ASKNX( KNX , MIDSID , ISN ) 

DIMENSION  MIDSID(4) 

KNX  =  0 

IF(MIDSID(ISN) .EQ.O)  RETURN 

DO  100  1=1, ISN 

KNX  =  K NX+M I DS I D( I  ) 

100  CONTINUE 

IF(KNX.NE.O)  KNX  =  KNX+4 
RETURN 
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C  FTN7X.L 

C  $ EMA  /OUTPS/ ,/OUTHS/ 

C  PROGRAM  DPSMA(5) 

SUBROUTINE  DPSMA 

C  INTEGERS  N I , N 2 , N 3 , N4 , N 5 , N6 , N 7 , N8 , N9 , N 1 0 , N 1 1 , N 1 2 , N 1 3 , N  1 4 , N 1 5 , 

C  *  N16,N17,N18,N19,N20,N21,N22,N23,N24,N25,N26,N27,N28,N29,N30 

C  INTECER*4  N3 I , N 32 , N 33 , N 34 , N3 5 , N36 , N 37 , N 38 , N 5 A , N 5 B , NLAST 

COMMON  /NPARM/  N 1 , N2 , N3 , N4 , N 5 . N6 , N7 , N8 , N9 , N 1 0 , N 1 1 , N 1 2 , N 1 3 , 

*  NI4,NI5,N16,N17,NI8,N19,N20,N21,N22,N23,N24,N25,N26,N27,N28t 

*  N29,N30,N3I,N32,"N33,N34,N35,N36,N37,N38,N5A,N5B 

COMMON  /LPARM/  LI , L2 , L3 , L4 , L5 , L6 , L7 , L8 , L9 , L 1 0 , MAX  IP , MX  IP , MXSH , 

*  LBBB , LDDD , NELS 

COMMON  /GENOP/  NF , NTCSF , ISFG , IP , NLNR , ICONST , NFG 
COMMON  /GCALP/  NCYCL , DT , NUPDAT , ITER 

COMMON  /MMBDP/  NUMNP , NUMEL , NUMMAT , NVIS , NSKEW , NEQ , MBAND 
COMMON  / ACCLF/  MTYPE , NUMAP , DTXA 
COMMON  /PRELF/  NUMLP , NUMLH , NUMTP , NTYPE , DTXX 
COMMON  /VELLF/  NUMVEL , NUMVH , NUMVTP , N VTYPE , DTXV 

COMMON  /OUTPS/  NPFL , NDC , NSG , NPRINT , NPEL , NPMT , NPRT( 1 500 ) ,NPM(I500) 
COMMON  /OUTHS/  NTHS , NHPEL , NHPMT , NHPRT( 100) , NHPM( 100) 

C  COMMON  /NALLO/  NSDFL( 8 ,9,2,2) 

TOTM  =  60000. 

C 

C  IMASS  =  0  DO  NOT  SUPPRESS  MASS 

C  1  SUPPRESS  MASS 

C 

IMASS  =  0 
C 

N6  »  N5B+NEQ*MBAND 
N7  »  N6+NEQ*MBAND 
N8  =•  N  7 

I F ( NTCSF . NE . 2 )  N8  -  N7+NEQ*MBAND 
N9  =  N8+NEQ*MBAND 
I F( ICONST . EQ . 0 )  N9  =  N8+NEQ 
IF(NTCSF.EQ. 1. OR. IMASS. EQ.l)  N9  =  N8 
N 1 0  *  N9+NEQ 
Nil  -  N 1 0 

IF( ICONST. EQ. 1 .AND. IMASS. EQ.O. AND. NTCSF. NE. 1) 

*  Nil  =  N10+2*NEQ 
N 1 2  =  Nil 

I F( NTCSF . NE . 2 )  N12  =  N11+2-NEQ 
N 1 3  =  N12+NEQ 
N 14  =  N13+NEQ 


1 

1 

I 

\ 

I 

I 

I 

\ 

J 

\ 

i 

1 

5 


N  1  5  =  N  1  4-t-NEQ 
N 1 6  =  N15+NEQ 
N 1 7  =  N16+NEQ 
N  1  8  =  N  1  7-t-NEQ 
N 1 9  =  N l 8+ NEQ 
N  20  =  N19  +  NEQ 


i 

1 


c 


1 

t 

I 


I 


§ 

I 


I 

i 

K 


i 


A 


i 


IF( NFG . EQ . 1 ) 
I F( NFG . EQ . 3 ) 
N  2  1  =  N  20 
N22  =  N  20 


GO 

GO 


TO 

TO 


180 

150 


C 

C 


C 


C 


c 

c 


c 


N23  =  N22+NUMLH*NUMTP 
N24  -»  N23+3*NUMLP 
N25  -  N24+NUMLP 
N26  «  N25+NUMTP 
N27  =  N26+NEQ 

GO  TO  200 

150  CONTINUE 
N21  =  N20 
N22  »  N20 
N23  =  N20 
N24  =  N20 
N25  =  N20 
N26  =  N20 
N27  =  N20 
GO  TO  200 

180  CONTINUE 

N21  =  N20+NUMAP 
IF(MTYPE.EQ.O)  N21  =  N20 
N22  »  N2 1+NUMAP 

N23  =  N22 
N24  =  N22 
N25  =  N22 
N26  -  N22 
N27  -  N22 

200  CONTINUE 

N28  =  N  27 

IF(ISFG.EQ. 1 .0R.ISFG.EQ.2)  N28 
N29  =  N28 

IF(ISFG.EQ. 1 .0R.ISFG.GE.3)  N29 
N30  =  N29+58*NUMEL 
N  3 1  =  N  30+LBBB*NELS 
N32  =  N31+LDDD*NELS*2 

N33  =  N32 
N  3  4  =  N  3  2 

IF(NVIS.EQ.O)  GO  TO  300 
N  33  =  N32  +  NVIS 
N  34  =  N33  +  NVTS 
300  CONTINUE 
N  3  5  =  N  34 


N27+4*MXIP*NUMEL 

N28+MXIP*NUMEL 


I 
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N  36  =  N  34 
N  3  7  =  N  34 
N  38  =  N  34 
N  39  =  N  34 

IF ( NUMVEL . EQ . 0 )  GO  TO  400 
N35  =  N34+NUMVEL 
N36  '=  N35+NUMVEL 
N37  =  N36+NUMVEL 
N38  =  N37+NUMVTP 
N39  =  N38+NUMVH*NUMVTP 
400  CONTINUE 

NLAST  =  N  39 
C 

WRITE(6, 2095)  T0TM, NLAST 
C 

IF(NLAST.GT.TOTM)  STOP 


2095  FORMAT ( /  *  INFORMATION  ABOUT  PROGRAM  ARRAY  DIMENSION  *  / 


.*  PROGRAM  DIMENSION  -  -  *,F10.0  / 

*  REQUIRED  DIMENSION  -  -  *,110  //) 


CALL  SEGRT  1 

RETURN 

END  j 

I 

s 

i 

i 


i 

i 
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C  FTN7X.L 

C  $  EM A  /WAREA/./ZAREA/ 

C  PROGRAM  DPSM2 ( 5 ) 

SUBROUTINE  DPSM2 

INTEGER*4  N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14, 

*  N15,N16,N17,N18,N19, N20.N21 , N22 . N23 , N24 , N25 , N26 , N27.N28.N29 
INTEGER*4  N30 , N31 , N32 , N33 , N34 , N35 , N36 , N37 , N38 , N5A , N5B 
INTEGER  LTIME( 15) 

COMMON  /WAREA/  A(60000) 

COMMON  /NPARM/  N 1 , N2 , N3 , N4 , N5 , N6 , N7 , N8 , N9 , N  1 0 , N 1 1 , N 1 2 , N 1 3 , N 1 4 , 

*  N15,N16,N17,N18,N19,N20,N21,N22,N23,N24,N25,N26, 

*  N27 ,N28,N29,N30,N31 ,N32,N33,N34,N35,N36,N37,N38,N5A,N5B 
COMMON  / INTCN/  B(19) 

COMMON  /GAUSQ/  ZETA ( 4 , 4 ) , W( 4 , 4 ) 

COMMON  /MMBDP/  NUMNP , NUMEL , NUMMAT , NVIS , NSKEW , NEQ , MBAND 
COMMON  /PRELF/  NUMLP , NUMLH , NUMTP , NTYPE , DTXX 
COMMON  /VELLF/  NUMVEL , NUMVH , NUMVTP , NVTYPE , DTXV 
COMMON  /ZAREA/  Z( 1500) 

COMMON  /LPARM/  LI , L2 , L3 , L4 , L5 , L6 , L7 , L8 , L9 , L10 , MAXIP , MXIP , MXSH , 

*  LBB , LDD , NELS 
CALL  DATA 

C2  =  B ( 1 ) 

C3  =  B( 4 ) 

WRITE( 6 , * )  *NPARM  =  * 

WR ITE( 6 , * )  N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11 
WRITE(6, *)  N27,N28,N29,N30,N31,N32,N33,N34,N35,N36 
WR ITE ( 6 , * )  N37,N38,N5A,N5B 

CALL  KSTAR(A(N2) ,A(N3) ,A(N4) ,A(N5B) ,A(N8) ,A(N7) ,A(N10) ,A(N11) , 

*  NEQ, C2,C3, A(N30) .NUMNP, A ( N 1 ) , A(N32) , A(N33) , A(N5) , A(N5A) , NUMEL, 

*  NVIS.Z(Ll) ,Z(L2) ,Z(L3) ,Z(L4) ,Z(L5) ,Z(L6) ,Z( LI) ,Z(L7) .MAXIP, 

*  MXIP, LBB, NELS, A(N27) ,A(N28) , NUMLH, A(N20) , A ( N2 1 ) ,A(N22)  ,  A ( N  23  )  , 

*  A(N24) ,A(N25) ,A(N26) .NUMVTP, A ( N 3 4 ) , A ( N3 5 ) ,A(N36) , A ( N37 ) ,A(N38) ) 
CALL  FTIME(LTIME) 

WRITE(l.l)  (LTIME(I) , 1=1 , 15) 

1  FORMAT ( *AFTER  DPSM2 - *,15A2) 

CALL  SEGRT 
RETURN 
C 

END 

C  BLOCK  DATA 

SUBROUTINE  DATA 

COMMON  /GAUSQ/  ZETA ( 4 , 4  )  , W ( 4 , 4  ) 

DATA  ZETA/ 

1  .0000000000000,  .0000000000000,  .0000000000000,  .0000000000000, 

2- . 5773502691896,  .5773502691896,  .0000000000000,  .0000000000000, 

3- . 77459666924 l 5 ,  .0000000000000,  .7745966692415,  .0000000000000, 

4 - .86 113631 1 594 l ,-. 3399810435849,  .3399810435849,  .8611363115941/ 
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C 


DATA  W/ 

1 2.0000000000000 
2 1 .0000000000000 

3  .5555535555556 

4  .3478548451375 


,  .0000000000000, 
, 1 .0000000000000 , 
,  .8888888888889, 
,  .6521451548625, 


.0000000000000, 
.0000000000000, 
.  5555555555  556  , 
.6521451548625, 


.0000000000000, 

.0000000000000, 

.0000000000000, 

.3478548451375/ 


RETURN 

END 

SUBROUTINE  KSTAR ( X A , YA , PROP , GKO , GM , GH , MBM , MBD , NEQ , C2 , C3 , DBBB , 

*  NUMNP, ID, IVIS, VISC, ISKEW , ACS , NUMEL , NVIS , NINT , B , EN , XBAR  ,  YBAR , 

*  WIWJ,BB,XTT,MAXIP,MXIP,LBB,NELS,SRT,PRF,NUMLH,TS,GACL,DYL, 

*  I EQH ,CINT , TD , UNV , NUMVTP , KVEL , KEQH , VINT , TV , SVEL) 

COMMON  /GENOP/  NF , NTCSF , ISFG , I P , NLNR , ICONST , NFG 
COMMON  /GCALP/  NC YCL , DT , NUPDAT , ITER 

COMMON  /MMBDP/  NUMNX , NUMEX , NUMMAT , N VI X , NSKEX , NEQX , MBAND 
COMMON  /PRELF/  NUMLP , NUMLX , NUMTP , NTYPE , DTXX 
COMMON  / VELLF/  I VEL , NUMVH , NUMVTX , NVTYPE , DTXV 
COMMON  /EDT/  NEL , IXS ( 1 6 ) , IXF( 1 6 ) , NP( 8 ) , MIDS ID( 4 ) , INN ( 3  )  , 

*  ISF( 8 ) ,NC,NCC 

DIMENSION  GM(NEQ, 1) , GKO (NEQ, 1 ) , PROP( 30, 1 ) , XA( 1 )  ,  YA ( 1 )  , 

*  XX (8) ,YY(8) ,EMS(16, 16) ,EMC( 16, 16) ,EJ( 17) , 

*  EMF(16,16) ,H(16, 16) ,EE(16, 16) ,C( 16, 16) ,E(16, 16) , 

*  GH(NEQ, 1) ,MBM(1) ,MBD( 1) ,D(4,4) ,EST(16, 16) , 

*  ID ( NUMNP, 1) ,IVIS( NVIS) ,VlSC( NVIS) ,HEAD(20)  , 

*  ISKEW (5, 1) ,ACS(2, 1) ,B(2,8,MAXIP) ,EN(8,MAXIP) .XBAR(MAXIP) , 

*  YBAR(MAXIP) .WIWJ(MAXIP) ,BB(LBB) , XTT( 16 .MAXIP) ,AA(58)  , 

*  DBBB(LBB.NELS) ,SRT(4,MXIP, 1 ) , PRF( MXIP , 1 ) , TS ( 1 ) ,GACL( 1) , 

*  DYL(NUMLH, 1) ,IEQH(3, 1) ,CINT(1) ,TD( 1) ,UNV( 1) ,KVEL( 1) ,KEQH( 1) , 

*  VINT(1),TV(1),SVEL(NUMVTP,I) 

EMA  X A, YA, PROP, GKO, GM,GH, MBM, MBD, DBBB, ID, I VIS, VISC, ISKEW, ACS, 

*  NINT,B,EN,XBAR, YBAR.WIWJ, BB , XTT , SRT , PRF , TS , GACL , DYL , I EQH, 

*  CINT.TD, UNV, KVEL, KEQH, VI NT, TV, SVEL 
EQUIVALENCE  ( NEL , AA (  1 ) ) 


'.v 


C2 

I 


f 


i 

$• 

9 


REWIND  3  £ 

IF(NELS.EQ.O)  REWIND  4  V 


INITIALIZE 

I F ( ICONST. EQ.O)  GO  TO  50 
CALL  TZERO(GM, NEQ, MBAND) 

CO  TO  60 

50  CALL  EZERO(GM.NEQ) 

60  CALL  TZERO(GKO, NEQ, MBAND) 

I  F  (  NTCSF. NE.  2)  CALL  TZERO  (  Gil  ,  N  EQ  ,  MBAND  ) 

NSK  =  l 
NSM  =  1 
NSE  =  1 


y 


i 

•  * 
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DO  500  NN  =  1 , NUMEL 
C 
C 

READ  (3)  A  A 
C 

MAT  =  ISF(l) 

KS  ='  ISF(  3 ) 

KF  =  I SF( 4 ) 

INTR  *  IS F( 5 ) 

INTS  *  ISF( 6 ) 

BK  =  PROP( 6 , MAT ) 

G  =  PROP( 7 , MAT ) 

C 

C 

CM  =  PROP( 26 , MAT ) 

RO  =  PROP (19, MAT ) 

ROF  =  PROP( 20 , MAT ) 

POR  =  PROP( 27 , MAT ) 

RXX  =  PROP( 28 ,MAT) 

RYY  =  PROP( 29 , MAT ) 

RXY  =  PROP( 30 , MAT ) 

C 

DO  100  1=1, NC 
N  =  NP( I ) 

XX ( I )  =  X  A  (  N  ) 

Y Y ( I )  =  YA ( N ) 

100  CONTINUE 
C 

NINT  =  INTR*INTS 
C 

CALL  TWOD(XX,YY,MIDSID, INTR, INTS, N EL, B , EN , EJ , XBAR , YBAR , NC , 

*  WIWJ.IP.O) 

C 

IF(MXIP.NE.l)  GO  TO  105 
N  =  MAXIP 
NOIP  =  N-l 

CALL  TWOD(XX,YY,MIDSID, 1 , 1 , NEL , B , EN , EJ , XBAR , 

*  YBAR, NC.WIWJ, IP, NOIP) 

105  CONTINUE 

C 

C  THIS  OPTION  IS  GOOD  FOR  CYBER 

C 

IF(NELS.EQ.O)  WRITE  (4)  BB 
C 

IF(NELS.EQ. NUMEL)  CALL  WREAD( DBBB( 1 , NN ) , LBB , BB  ,  1  ) 

C 

C  COMPUTE  ELEMENT  ELASTIC  STIFFNESS  MATRIX  AND  ASSEMBLE 

C 

IF(NLNR.NE.O)  GO  TO  130 
CALL  ELAST( BK ,C , D) 


233 


non  o  oononooo 


DO  110  I  =  1  ,  N  l  NT 

CALL  ELSTF ( B( 1 , 1 , I ) . D , EN ( 1 , I ) , X BAR ( I ) , W I W J ( I ) , NC, NCC, EST, IP , 
*  0  ) 

110  CONTINUE 

IF(NSKEW.EQ.O)  GO  TO  120 
IF(NSK.GT.NSKEW)  GO  TO  120 
IF(NN.NE.ISKEW(1,NSK))  GO  TO  120 
IF(ISKEW(5,NSK).EQ.l)  GO  TO  115 
INX  =  ISKEW(2,NSK) 

JNX  =  ISKEW(3,NSK) 

KNX  »  ISKEW(4 , NSK ) 

CSC  =  ACS ( 1 , NSK ) 

CSS  =  ACS (2, NSK) 

CALL  MSK EW(  EST, 16, NC, NCC, INX, JNX, KNX, 3, CSC, CSS) 

115  NSK  =  NSK+1 
120  CONTINUE 

CALL  ALPHA ( EST ) 

CALL  ESMBL(GKO,DUM,EST,DUM,IXS,IXS,NEQ,MBAND, 1 6 , 2 , NCC , NCC ) 


IF(NTCSF.EQ.l)  GO  TO  160 
ASSEMBL  GLOBAL  MASS  MATRIX 

130  CALL  MASSM(EMS,EMC,EMF,EN,WIWJ,ICONST,RO,ROF,POR,NC,NCC,NINT, 
*  KS.KF.NTCSF) 

IF(NSKEW.EQ.O)  GO  TO  140 
IF(NSM.GT.NSKEW)  GO  TO  140 
IF(NN.NE.ISKEW(1,NSM))  GO  TO  140 
INX  =  ISKEW(2,NSW) 

JNX  =  ISKEW(3,NSM) 

KNX  =  ISKEW(4,NSM) 

MSF  =  ISKEW( 5 ,NSM) 

CSC  =  ACS ( 1 , NSM ) 

CSS  =  ACS ( 2 , NSM ) 

IF(MSF.NE.l)  CALL  MSK EW( EMS , 1 6 , NC , NCC , INX , JNX , K NX , 3 , CSC , CSS ) 

I F( K F . EQ . 1 .0R.NTCSF.EQ.2)  GO  TO  135 

CALL  MSKEW ( EMC , 1 6 , NC , NCC , I  NX , JNX , KNX , MS F , CSC , CSS ) 

IF(MSF.NE.2)  CALL  MS K EW ( EM F , 1 6 , NC , NCC , I N X , JN X , K N X , 3 , CSC , CS S ) 
135  NSM  =  NSM+1 
140-  CONTINUE 

I F ( I  CONST . EQ . 0 )  GO  TO  150 
CONSISTENT  MASS  MATRIX 


CALL  E  S  M  B  L  (  G  M  ,  D  U  M  ,  EMS  ,  DUM  ,  I  X  S  ,  I  XS  ,  N  EQ  ,  MB  AN  D  ,  1  6 , 2  ,  NCC  ,  NCC) 
IF(KF.EQ. 1 .0R.NTCSF.EQ.2)  GO  TO  500 

CALL  ESMBL(GM,DUM,EMF,DUM, IXF, IXF, NEQ, MBAND, 16,2, NCC, NCC) 
CALL  ESMBL(GM , DUM , EMC , DUM , IXS , IXF , NEQ .MBAND , 1 6 , 2 , NCC , NCC ) 
CALL  ESMBL(GM, DUM, EMC, DUM, IXF, IXS, NEQ, MB AND, 16, 2, NCC, NCC) 
GO  TO  160 


LUMPED  MASS  MATRIX 

CALL  ESMBL ( DUM, GM, DUM, EMS, IXS,  DUM, NEQ, DUM, 16, 3, NCC, DUM) 
IFOCF.EQ. 1 .0R.NTCSF.EQ.2)  GO  TO  500 

CALL  ESMBL(DUM,GM,DUM,EMF, IXF , DUM , NEQ , DUM , 16, 3, NCC, DUM) 
COMPUTE  H,  EE,  E,  AND  C  MATRIX  AND  ASSEMBL  IN  GLOBAL 
CONTINUE 

CALL  ELH(H,EN,WIWJ,NINT,RXX,RYY,RXY,NCC,NC) 

CALL  ECTTX(B,EN,XBAR, I P , NC , NCC , XTT , EE , E , C , N INT , WIWJ,CM) 

I F( NSKEW . EQ . 0 )  GO  TO  180 
IF( NSE . GT . NSKEW)  GO  TO  180 
IF(NN.NE.ISKEW( 1 ,NSE) )  GO  TO  180 
INX  =  ISKEW(2,NSE) 

JNX  =  ISKEW(3,NSE) 

KNX  =  ISKEW( 4 , NSE) 

MSF  =  ISKEW( 5 , NSE) 

CSC  =  ACS ( 1 , NSE) 

CSS  =  ACS( 2 , NSE) 

IF(MSF.NE.l)  CALL  MSKEW( EE , 16 , NC , NCC , INX , JNX , KNX , 3 , CSC , CSS ) 
CALL  MSK EW( C , 1 6 , NC , NCC , I N X , JN X , K N X , MS F , CSC , CSS ) 

I F ( MS F . EQ . 2 )  GO  TO  175 

CALL  MSK  EW ( H , 1 6 , NC , NCC  ,  INX, JNX, KNX, 3,  CSC, CSS) 

CALL  MS  K  EW ( E , 1 6 , NC , NCC , I  NX , JNX , KNX , 3 , CSC , CSS ) 

NSE  =  NSE+1 
CONTINUE 

CALL  ESMBL( CH , DUM , H , DUM ,  IXF, IXF , NEQ , MBAND ,  1^,2, NCC, NCC) 

CALL  ESMBL (GKO, DUM, EE, DUM, r XS , I  X S , N EQ , MB A N D , 1 6 , 2 , NCC , NCC ) 
CALL  ESMBL (GKO, DUM , E, DUM , IXF , I XF , NEQ , MBAND , l 6 , 2 , NCC , NCC ) 


-  -  JL.IA .  Ai  -/.LAi  l  ,*•>.  -A  ^ 


CALL  ESMBL(GKO,DUM,C,DUM,  I X  S  ,  I  X  F  ,  N'  EQ  ,  M  BAN  D  ,  1  6 , 2  ,  NCC  ,  N'CC  ) 
CALL  ESMBL( GKO , DUM , C , DUM , I  X F , I XS , NEQ , MBAND , 1 6 , 2 , NCC , NCC ) 


500  CONTINUE 

I F ( NTCSF . EQ . 2 )  GO  TO  630 

DO  600  1=1 , NEQ 
DO  550  J=l, MBAND 
GHIJ  =  GH( I ,  J  ) 
IF(GHIJ.EQ.O.O)  GO  TO  550 
GH(I,J)  =  C3*GHI J 
GKO( I , J )  =  GKO(I,J)+GH(I, J) 
550  CONTINUE 
600  CONTINUE 


COMPUTE  BOUND  OF  GH(I,J) 
CALL  PRFIL(GH,MBD, NEQ, MBAND) 
630  CONTINUE 

I F ( NTCSF . EQ .  I )  GO  TO  900 

IF(ICONST.EQ.O)  GO  TO  750 
DO  700  1=1, NEQ 
DO  650  J=1 , MBAND 
GMIJ  =  GM( I , J) 
IF(GMIJ.EQ.O.O)  GO  TO  650 
GM( I ,  J )  =  C2*GMI J 
GKO ( I , J )  =  GKO( I , J ) +GM ( I , J ) 
650  CONTINUE 
700  CONTINUE 

COMPUTE  BOUND  OF  GM(I,J) 

CALL  PRFIL(GM,MBM, NEQ, MBAND) 

GO  TO  900 

750  CONTINUE 

DO  800  1= 1 , NEQ 
CM  I  =  GM<i  1,1) 

I F ( GM  T . EQ.O.O)  GO  TO  800 
GM( r  .  1  )  =  C  2  * G M I 

gkoc r ,  i )  =  c ko ( r , i ) +gm ( r ,  i ) 

800  CONTINUE 


c 

900  CONTINUE 
C 

IF(NVIS.EQ.O)  GO  TO  950 
READ( 5,1001)  (HEAD(I) ,1=1,20) 

WRITE(6, 1001)  (HEAD(I) ,1=1 ,20) 

DO  920  1= 1 , NVIS 

READ( 5 , 1002 )  INOD, IDIR, VISC( I) 

IDVIS  =  I D ( INOD , IDIR) 

IVIS(I)  =  IDVIS 

WRITE(6, 1002)  INOD, IDIR, VISC(I) 

920  CONTINUE 

1001  FORMAT ( 20A4 ) 

1002  FORMAT(2I5,E10.3) 

950  CONTINUE 

C 

C  READ  INITIAL  EFFECTIVE  STRESS  AND  PRESSURE 
C 

C  WRITE(1,*)  ^BEFORE  READING  RINTF* 

IF(ISFG.EQ.1.0R.ISFG.EQ.2)  CALL  RINTS ( SRT , NUMEL , MXIP ) 
IF(ISFG.EQ.1.0R.ISFG.GE.3)  CALL  RINTF( PRF , NUMEL , MXIP ) 

C  WRITE(1,*)  *AFTER  READING  RINTF* 

C 

C  READ  BASE  ACCELERATION  OR  DYNAMIC  LOAD 

C 

IF(NFG.NE.3) 

*  CALL  RLOAD(TS ,GACL,ID,DYL, IEQH ,CINT,TD,UNV, 

*  NUMNP.NEQ.NUMLH) 

C 

C  READ  SPECIFIED  VELOCITY  INPUT 

C 

IF(IVEL.NE.O)  CALL  RVELB( IVEL , NUMVH , NUMVTP , 

*  ID.KVEL.KEQH, VINT , TV , SVEL , NUMNP , 

*  NVTYPE , DTXV ) 

C 

C 

REWIND  3 
C 

RETURN 

END 

SUBROUTINE  MASSM( EMS , EMC , EMF , EN , WIWJ , I CONST , RO , ROF , POR , NC , NCC  , 

*  N INT , KS , K  F , NTCSF ) 

DIMENSION  EMS( 16, 1 ) , EMC( 16, 1 ) ,EMF( 16, 1 ) , EN(8, 1 ) ,WIWJ( 1 ) 

C  EMA  EN , WIWJ , N I  NT 

ROFDP  =  ROF/POR 
NN  =  NCC 

I F ( ICONST . EQ . 0 )  NN  =  1 
C 

CALL  SZERO( EMS , 16*NN  ) 

CALL  SZERO( EMF , 16*NN) 

I  F ( ICONST. EQ.O)  GO  TO  50 


c 


CALL  SZERO( EMC, 16*NCC) 


C. 

C 


C 


C 


C 


C 


C 


r-.*- 


50  CONTINUE 

DO  200  L= I , N INT 

DO  1'50  1  =  1,  NC 
B  =  EN ( I , L) 

DO  100  J=1 ,NC 

IF( ICONST.NE.O)  NN  =  J 

EMS ( I , NN )  =  EMS(I ,NN)+EN( J,L)*B*WIWJ(L) 

100  CONTINUE 
150  CONTINUE 
200  CONTINUE 

DO  400  1=1, NC 
NN  =  NC 
MM  =  NC 

I F ( ICONST . EQ . 0)  NN  =  1 
I F ( ICONST . EQ . 0 )  MM  =  0 
DO  300  J= 1 , NN 
El J  =  EMS(I.J) 

EMS(I.J)  =  RO*EMS ( I , J ) 

EMS ( I+NC , J+MM )  =  EMS( I , J) 

IF(KF.EQ. 1 .0R.NTCSF.EQ.2)  GO  TO  300 

EMF ( I , J )  =  ROFDP*EI J 
EMF(I  +  NC, J+MM)  =  EMF( I , J  ) 

I F ( ICONST . EQ . 0 )  GO  TO  300 

EMC(I.J)  =  ROF*EIJ 

EMC ( I+NC , J+NC )  =  EMC( I , J ) 

300  CONTINUE 
400  CONTINUE 

RETURN 

END 

SUBROUTINE  ELH ( H , EN , WI WJ , NINT , RXX , R YY , RX Y , NCC , NC ) 
DIMENSION  H( 16, NCC) , EN ( 8 , 1 ) , WIWJ ( 1 ) 

EMA  EN, WIWJ, NINT 
CALL  SZERO( H , 16*NCC) 

DO  50  11=1, NINT 
DO  50  1=1  ,NC 
Eli  =  EN ( 1 , 1 1 ) 

DO  50  J=1 ,NC 

H (  I  , J )  =  H(I,J)  +  EII*£N(J,II)*WIWJ(II) 

50  CONTINUE 


DO  80  1=1 , NC 
DO  80  J=1 , NC 


H (  I  , J  )  =  RXX*HIJ 
H  (  I+NC , J+NC )  =  R YY*H  I J 

IF(RXY.EQ.O.O)  GO  TO  80 
H(I,J+NC)  =  RXY+HIJ 
H ( J+NC , I )  =  H ( I , J+NC ) 

80  CONTINUE 
RETURN 
END 

SUBROUTINE  ECTTX ( B , EN , XBAR , I P , NC , NCC , TT , EE , E , C , NINT , WIWJ , CM ) 
DIMENSION  B( 2 , 8 , 1 ) , EN ( 8 , 1 ) , WIWJ ( 1 ) , XBAR ( 1 ) , TT( 1 6 , I )  , 

*  EE(  16, NCC) ,E( 16, NCC) ,C( 1 6 , NCC ) 

EMA  B,EN, XBAR, TT, NINT, WIWJ 

CALL  SZERO( E , 1 6*NCC ) 

DO  500  11=1, NINT 

DO  300  1=1, NC 

IF(IP.LT. 3)  GO  TO  200 

IF(IP.EQ.3)  TT(I,II)  =  B(1,I,II)+EN(I,II)/XBAR(II) 

IFCIP.EQ.4)  TT( I , II )  =  B(1,I,II)+2.*EN(I,II)/XBAR(II) 

GO  TO  250 

200  TT( I , II )  =  B ( 1 , 1 , 1 1 ) 

250  TT( I+NC , II )  =  B( 2 , I , II) 

300  CONTINUE 

DO  400  1=1, NCC 
DO  400  J= 1 , NCC 

400  E( I , J )  =  E(I,J)+TT(I,II)*TT(J,II)*WIWJ(II)*CM 

500  CONTINUE 

DO  600  1=1, NCC 
DO  600  J=1 ,NCC 
E( J , I )  =  E(I,J) 

EE( I ,  J  )  =  E( I , J) 

C(I.J)  =  E( I , J ) 

EE( J , I  )  =  EE( I , J ) 

C ( J  ,  I )  =  C(I,J) 

600  CONTINUE 

RETURN 

END 

SUBROUTINE  TWOD(XX , Y Y , M I DS I D , I NTR , T NTS , NEL , B , EN , EJ , X BAR , YBAR , 

*  NC.WTWJ, IP, ISRT) 

COMMON  /GAUSQ/  Z ETA ( 4 , 4 ) , W ( 4 , 4 ) 

DIMENSION  XX( 1 ) , YY( 1 ) ,MTDSTD( 1 ) ,B(2,8, 1 ) , EN(8, 1 ) , EJ( 1 ) , 


I 


v. 


3a 


m 

w 


•:$ 


5  XBAR (  1  ) , YBAR ( 1  ) , N0D5 ( 4 ) , P ( 2 , 8 ) , X J ( 2 , 2 ) , X J I ( 2 , 2)  ,WIWJ( 1 ) 

EM A  B,EN, XBAR, YBAR, WIWJ 

INPUT  : 

XX ( 8 )  =  X  COORDINATES  OF  NODES 
Y Y ( 8 )  =  Y  COORDINATES  OF  NODES 
MIDSID( 4 )  =  0  NO  MIDSIDE  NODE 

1  SPECIFIED  MIDSIDE  NODE 

INTR  =  NUMBER  OF  INTEGRATION  NODES  ALONG  LOCAL  R-AXIS 
INTS  -  NUMBER  OF  INTEGRATION  NODES  ALONG  LOCAL  S-AXIS 
NEL  *  ELEMENT  NUMBER 
NC  *  NUMBER  OF  ELEMENT  NODES 

OUTPUT  : 

B( 2 , 8 , INTR* I  NTS )  =  DERIVATIVES  OF  SHAPE  FUNCTION  WITH  RESPECT 

TO  X  AND  Y  AT  INTEGRATION  NODES 
EN(8,INTR*INTS)  =  SHAPE  FUNCTION  AT  INTEGRATION  NODES 
EJ ( INTR*INTS )  =  DETERMINANT  OF  JACOBIAN  AT  INTEGRATION  NODES 
XBAR (INTR* INTS)  =  X  COORDINATES  AT  INTEGRATION  NODES 
YBAR(INTR*INTS)  =  Y  COORDINATES  AT  INTEGRATION  NODES 

II  =  ISRT 
DO  100  IR=1 , INTR 
DO  100  IS-l.INTS 
II  =  II+l 
R  =  ZETA ( IR , INTR ) 

S  =  ZETA ( IS , INTS ) 

WIWJ(II)  =  W(IR,INTR)*W(IS,INTS) 

NC  =  MIDSID(l)+MIDSID(2)+MIDSID(3)+MIDSID(4)+4 


CALL  SHAPE(R,S, EN( 1 , II) ,D1 , MIDSID , P , XX , Y Y , NC , IP , D2 , D3 , 0 ) 

EVALUATE  THE  JACOBIAN  MATRIX  AT  POINT(R,S) 

DO  40  1-1,2 
DUMX  -  0.0 
DUMY  =  0.0 
DO  30  K=1 , NC 

DUMX  =  DUMX+P(I,K)*XX(K) 

DUMY  =  DUMY+P(I,K)*YY(K) 

30  CONTINUE 

X J (  I  ,  I  )  =  DUMX 
X J ( I  ,  2 )  =  DUMY 
40  CONTINUE 

COMPUTE  THE  DETERMINANT  OF  JACOBIAN  MATRIX  AT  POINT  (R,S) 

EJ(II)  =  XJ(  1  ,  1  )*XJ( 2 , 2)-XJ( 2  ,  1  )*XJ(  1  ,  2) 

DUM  =  A  BS ( E J (II)) 

IF( DUM.GT. I .OE-8)  GO  TO  50 


WRITE(6,55)  NEL 

55  FORMAT( 1  HO , * - ERROR  ZERO  JACOBIAN  FOR  ELEMENT  =  *,15) 

STOP 

50  CONTINUE 

INVERSE  OF  JACOBIAN  MATRIX 

DUM  =  1  . /EJ( II) 

XJI(1,1)  =  X J( 2 , 2 ) *DUM 
X JI ( 1,2)  — XJ(1,2)*DUM 
X JI ( 2 , 1 )  »-XJ(2, 1 )*DUM 
XJI ( 2 , 2 )  =  XJ(1,1)*DUM 

CALCULATE  B-MATRIX , XBAR ,  AND  YBAR  AT  POINT  (R,S) 

XBAR(II)  =  0.0 
YBAR ( II )  «  0.0 
DO  60  1=1, NC 

XBAR(II)  »  XBAR(II)+EN(I,II)*XX(I) 

60  YBAR ( II )  *  YBAR(II)+EN(I,II)*YY(I) 

DO  65  1=1, NC 
B(  1  ,  I  ,  II  )  a  0.0 
65  B( 2 , I , II )  =  0.0 
DO  80  K=1 , NC 
DO  70  1=1,2 

B(  1 ,  K , II )  =  B(I,K,II)+XJI(lfI)*P(I,K) 

70  B( 2 , K , II )  =  B(2,K,II)+XJI(2,I)*P(I,K) 

80  CONTINUE 

IF(IP.LT.3)  GO  TO  90 

IF( IP . EQ . 3 )  WIWJ(II)  =  XBAR(II)*WIWJ(II)*EJ(II) 

IF(IP.EQ.4)  WIWJ(II)  =  0.5*XBAR(II)*XBAR(II):!'WIWJ(II)*EJ(II) 
GO  TO  100 

90  WIWJ(II)  a  WIWJ(II)*EJ(II) 

100  CONTINUE 
RETURN 
END 

SUBROUTINE  SHAPE ( R , S , EN , WT , MIDS I D , P , XX , YY , NC , IP , RD , FC , NS ) 
DIMENSION  EN(1),P(2,1),MIDSID(4),N0D5(4),XX(1),YY(1),RD(1), 

*  XJ(1 ,2) ,IPERM(4) 

EMA  EN 

DATA  I  PERM/2 ,3,4,1/ 


RP  =  1 .0+R 
SP  =  I.O+S 
RM  =  I.O-R 
SM  =  1 .0-S 
R2  =  1 . 0 - R  *  R 
S  2  =  I.O-S*S 


INTERPOLATION  FUNCTION  AND  THETR  DERIVATIVES 


4-NODE  ELEMENT 


EN( 1 )  =  0.25*RP*SP 
EN  (  2  )  =  0 . 2  5 *  R M * S  P 
EN ( 3  )  =  0.25*RM*SM 
EN ( 4 )  =  0.25*RP*SM 
P(  1  ,  1)  =  0.2  5*3? 

P ( 1  »  2  )  -  -P( 1.1) 

P(1  ,3)  -  -0. 25*SM 
P( 1 »  4  )  *  —  P ( 1 , 3 ) 

P(2,  1)  *  0.25*RP 
P ( 2  ,  2  )  =  0 . 25*RM 
P( 2 , 3 )  =  -P( 2,2) 

P(  2 , 4 )  =  -P( 2  ,  1 ) 

IF( NC . EQ . 4 )  GO  TO  20 

ADD  DEGREES  OF  FREEDOM  IN  EXCESS  OF  FOUR 

JJ  =  0 
DO  1  1=1,4 

IF(MIDSID(I) .EQ.O)  GO  TO  1 
JJ  =  JJ+1 
N0D5( JJ)  =  1+4 
1  CONTINUE 
1  =  0 

NND5  =  NC-4 
21=1+1 

IF(I.GT.NND5)  GO  TO  10 
NN  =  N0D5 ( I ) -4 
GO  TO  (5,6, 7, 8)  NN 

5  EN ( 5 )  =  0.5*R2*SP 
P ( 1  ,  5  )  =  -R*SP 

P( 2 , 5 )  =  0 . 5*R2 
GO  TO  2 

6  EN ( 6 )  =  0.5*RM*S2 
P(  1 , 6  )  =  -0 . 5*S2 
P( 2 , 6  )  =  -RM*S 

GO  TO  2 

7  EN ( 7 )  =  0 . 5*R2*SM 
P(  1 , 7  )  =  -R*SM 

P( 2 , 7  )  =  -0 . 5*R2 
GO  TO  2 

8  EN  (  8  )  =  0 . 5 * R  P * S  2 
P(  1 ,8)  =  0. 5*S2 

P  (  2 , 8  )  =  -  R  P  *  S 
GO  TO  2 

10  III  =  0 

11  III  =  Ill+l 

IF( TH.GT.NND5)  GO  TO  20 
IN  =  N0D5  (  III ) 


I* 


12  =  IPERM(Il) 

EN(I1)  =  EiV(  1 1  )-0. 5*EN(  IN) 

EN  ( 1 2  )  =  EN  (  T  2 ) -0 . 5r EN (  IN) 

EN  C IH  +  4)  =  EN ( IN) 

DO  15  J-l ,2 

P(J,I1)  =  P(J,I1 )-0.5*P(J, IN) 
P  ( J  ,  1 2  )  =  P(J,I2)-0.5*P(J,IN) 
P( J , IH+4 )  -  P( J  ,  IN  ) 


P(J,I1)  = 
P(J.I2)  = 
15  P( J , IH+4 ) 
GO  TO  11 
20  CONTINUE 


IF(NS.EQ.O)  RETURN 
I  =  NS 

IF(I.EQ.l)  LL  =  2 
IF( I . EQ . 2 )  LL  =  1 

DUM1  =  0.0 
DUM2  =  0.0 
DO  23  K* 1 , NC 

DUM1  -  DUM1+P(LL,K)*XX(K) 

DUM2  *  DUM2+P(LL,K)*YY(K) 

23  CONTINUE 

XJ(1,1)  *  DUM1 
X J( 1 , 2 )  =  DUM2 

IF(IP.LT. 3)  GO  TO  26 
XIBAR  *  0.0 

DO  25  K 1 = 1 , NC 

25  XIBAR  =  XIBAR+EN(K1)*XX(K1) 

26  IFCIP.LT. 3)  XIBAR  *  1.0 

IF(IP.EQ.3)  XIBAR  =  XIBAR 

IFCIP.EQ.4)  XIBAR  =  XIBAR*XIBAR 

FAC  =  FC*WT*XIBAR 
IFCI.EQ.2)  FAC  *  -FAC 

JJ  =  0 

DO  27  J=*l  ,  NC 
JJ  =  JJ+1 

RD( J )  =  RD(J)+EN(JJ)*XJ( 1 ,2)*FAC 
RDCJ+NC)  =  RD( J+NC)-EN( JJ)*XJ( i , 1 )*FAC 

27  CONTINUE 

RETURN 

END 

SUBROUTINE  PR FT L( A , MB , N EQ , MBAND ) 
DIMENSION  A ( N EQ , l ) , MB ( l ) 

F.MA  A,  MB 
DO  300  N-l.NEQ 
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N I  =  1 
NJ  =  1 

DO  100  M=2 ,  MB AND 
TF(A(N,M) .NE.O.O)  NI  = 

IF(N-M)  100,80,80 
80  IF(A(N-M+1 ,M) .NE.O.O)  NJ  =  M 
100  CONTINUE 
MB( N )  =  NI 
MB(N+NEQ)  -  NJ 
300  CONTINUE 
RETURN 
END 

SUBROUTINE  R INTF( PRF , NUMEL , MX  IP ) 

DIMENSION  PRF( MX  I P , 1 ) 

:  EMA  PRF 

WRITE( 6,2010) 

2010  FORMAT( 

.♦INITIAL  PORE  FLUID  PRESSURES  *// 

.*  ELEMENT  PORE  *// 

.♦  NUMBER  PRESSURE  *//) 

DO  100  J-l, NUMEL 

READ  (5,1000)  (PRF(I ,J) ,1=1 ,MXIP) 

WRITE( 6 , 2000 )  J , ( PRF( I , J ) , 1=1 , MXIP) 

100  CONTINUE 
1000  FORMAT ( 8F10 . 0) 

2000  F0RMAT(I6,2X,8E10.3) 

RETURN 

END 

SUBROUTINE  R INTS ( SRT , NUMEL , MXIP ) 

DIMENSION  SRT(4,MXIP, 1) 

EMA  SRT 

READ  EFFECTIVE  INITIAL  STRESS 

WRITE(6 , 2000 ) 

DO  100  1=1, NUMEL 
DO  50  K=1 ,MXIP 

READ( 5 , 1000)  (SRT(J,K,I),J=1,4) 

WRITE( 6,2010)  I, (SRT( J, K,I) , J-l, 4) 

50  CONTINUE 
100  CONTINUE 

1000  FORMAT( 4F 1 0 . 0 ) 

2000  FORMAT( /*  INITIAL  STRESS  DATA  */ 

.*  ELNO  SIGR  SIGZ  SIGT  SIGRZ  */) 

2010  F0RMAT(I10,4E10.3) 

RETURN 

END 

SUBROUTINE  R L0AD( TS , G ACL , I D , D Y L , I EQH , C I  NT , TD , 

*  UNV , NUMNP , NEQ , NUMLH ) 

COMMON  /GENOP/  N F , NTCS F , I S FG , I P , N LN R , I  CONST , N FG 


COMMON  / ACCLF/  MTYPE , NUMAP , DTXA 

COMMON  /PRELF/  NUMLP , NUMLX , NUMTP , NTYPE , DTXX 

DIMENSION  TS(  I)  ,GACL(  I)  ,  I  D(  NUMN'P  ,  I)  ,UNV(  1)  , 

*  DYL(NUMLH, 1 ) , I EQH ( 3, I ) ,CINT( I ) ,TD( 1 ) , I H ED (40) 

EM A  TS,GACL,ID,DYL, I  EQH , C  I  NT , TD , U N V 
IF(NFG.NE. 1 )  GO  TO  300 

IF( ICONST.EQ.O)  GO  TO  35 

BASE  ACCELERATION  (  NFG  =  1  ) 

INITIALIZE  UNIT  VECTOR  CORRESPONDING  TO  HORIZONTAL  DOFS 

CALL  EZERO(UNV.NEQ) 

DO  30  1=1, NUMNP 
DO  20  J-1,2 
II  =  J+J-l 
JJ  =  I D ( 1 , 1 1 ) 

IF(JJ)  20,20,16 
16  UNV(JJ)  =  1.0 
20  CONTINUE 
30  CONTINUE 


READ  BASE  ACCELERATION 

35  CONTINUE 

READ  (5,1004)  IHED 
READ  (5,1012)  TSCAL , ASCAL 
WRITE( 6 , 2008 )  I HED , TSCAL , ASCAL 
IF(MTYPE.EQ.O)  GO  TO  41 

READ(5, 1008)  (TS(I) ,GACL(I) , 1=1 , NUMAP) 

DO  40  1=1 , NUMAP 
TS ( I )  =  TS ( I ) *TSCAL 

40  GACL(I)  =  GACL( I ) PASCAL 

WRITE( 6 , 2009 )  ( N , TS ( N ) , G ACL ( N ) , N= 1 , NUMA P ) 
GO  TO  44 

41  CONTINUE 

REA D(5, 1013)  (GACL(I), 1=1, NUMAP) 

IF( ASCAL. EQ. 1.0)  GO  TO  43 
DO  42  1=1 , NUMAP 

42  GACL(I)  =  ASCAL *GACL(I) 

43  CONTINUE 

WRITE( 6, 2022 )  ( GACL( I ) , 1= 1 , NUMAP ) 

44  CONTINUE 

RETURN 

300  CONTINUE 


'IT/.*  '< 


SR® 
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READ  DYNAMIC  LOADS 

PRESSURE  LOAD  (  NFC  =  2  OR  4  ) 

CALL  EZERO(DYL,NUMLH*NUMTP) 

CALL  EZER0( IEQH , 3*NUMLP) 

CALL  EZERO(CINT.NUMLP) 

READ( 5 , 1004 )  IHED 
WRITE( 6 , 2001 )  IHED 

DO  350  N-I.NUMLP 

READ(5, 1000)  JNOD.JDOF, IEQH(2,N) ,CINT(N) 
WRITE (6, 2000)  JNOD.JDOF, IEQH( 2 , N ) , CINT(N) 
IEQH(l.N)  =  ID(JNOD.JDOF) 

IF(IP.NE.3)  GO  TO  350 
IEQH( 3 , N )  =  JNOD 
350  CONTINUE 


IF(NTYPE.'EQ.O)  GO  TO  380 
READ(5, 1012)  (TD( I ) , 1=1 , NUMTP) 

GO  TO  384 
380  CONTINUE 

C  WRITE( 1  ,  *)  *BEF0RE  DO  382* 

DO  382  1=1, NUMTP 
382  TD( I )  =  DTXX*(I-1) 

384  DO  400  1=1, NUMLH 

READ(5, 1012)  (DYL(I,J) ,J=1 .NUMTP) 

C  WRITEC1,*)  *AFTER  READING  LOAD* 

READ(5, 1001) 

400  CONTINUE 
C 

WRITE( 6 , 2202 ) 

2202  FORMAT( 

.*  TIME  PRESSURE  *//) 

DO  420  1=1, NUMTP 

WRITE( 6 , 2002 )  TD( I ) , ( DYL( J , I )  , J= 1 , NUMLH) 
420  CONTINUE 
RETURN 

1000  FORMAT(3I5,E10.3) 

1001  FORMAT(  A 1  ) 

1004  FORMAT ( 40A2 ) 

1008  FORMAT ( 1 2F6 . 0 ) 

1012  F0RMAT(7E10.0) 

1013  FORMAT ( 8F9 . 0 ) 

C 

2000  F0RMAT(3I5,2X,E10.3) 

2001  F0RMAT(  40A2// 

.*  NODE  T  DOF  LHNO  CINT  */) 

2002  FORMAT(E10.3,5X,8(E10.3)) 


2008  F0RMAT( 1H1/40A2/ 

.  *  SCALE  FACTOR  FOR  TIME .  *,F10.3/ 

.  *  SCALE  FACTOR  FOR  ACCELERATION .  *,F10.3//) 

2009  FORMAT ( / 5 X , *POINT* , 1 IX , *TIME* , 1 1 X , *ACCEL*/( 5X , I  5 , 2F1 5 . 6 ) ) 

2022  FORMAT (IX,/,*  ACCELERATION  - * / ( 1 X , 8 ( F 1 0 . 5 , 1 X ) ) ) 

END 

SUBROUTINE  RVELB( I VEL , NUMVH , NUMVTP , I D , 

*  KVEL.KEQH, V INT , TV , S VEL , NUMNP , N VTYPE , DTXV) 

DIMENSION  I D( NUMNP  ,  1 )  , 

*  KVEL(  1 )  ,KEQH(  I)  ,VINT(  1)  ,TV(  I )  ,.S  VEL (  NUMVTP  ,  1 )  ,  IHED (40) 
EMA  ID, KVEL.KEQH, VINT, TV, SVEL 

READ  SPECIFIED  VELOCITY  TIME  HISTORY 

READ( 5 , 1004 )  IHED 
WRITE(6, 1004)  IHED 
1004  FORMAT ( 40A2 ) 

DO  100  N-l.IVEL 

READ(5, 1006)  JNOD , JDOF , KEQH( N ) , VINT( N ) 

WRITE(6, 1006)  JNOD, JDOF, KEQH(N) , VINT(N) 

KVEL(N)  =  ID( JNOD, JDOF) 

100  CONTINUE 
1006  F0RMAT(3I5,F10.0) 

IF(NVTYPE.EQ. 1)  READ(5,1008)  ( T V ( I ) ,1=1, NUMVTP) 

IF( NVTYPE . EQ  .  1 )  GO  TO  200 
TV ( 1 )  =  0.0 
DO  150  1=2, NUMVTP 
TV ( I )  =  TV ( I - 1 ) +DTXV 
150  CONTINUE 

200  WRITE(6, 1008)  ( TV( I ), 1= 1 , NUMVTP) 

1008  FORMAT ( 7E1 0 . 3 ) 

DO  300  1=1, NUMVH 

READ(5, 1008)  ( SVEL( J , I ), J= 1 , NUMVTP ) 

WRITE(6, 1008)  ( SVEL(J, I) ,J=1 .NUMVTP) 

300  CONTINUE 
400  CONTINUE 


RETURN 

END 


ono  oono  o  o  o  oooonono  ooo 


C  FTX7X.L 

C  S  EM  A  /  V  A  R  F.  A  /  ,  /  Z  A  REA/ 

C  PROGRAM  DPSM  3 ( 5  ) 

SUBROUTINE  D I’SM 3 

INTEGER *4  N 1 , N 2 , N 3 , N4 , N 5 , N6 , N 7 , N8 , N9 , N 1 0 , N 1 1 , N 1 2 , N 1 3 , N 1 4 , 

*  N15,N16,N17,N18,N19,N20,N21,N22,N23,N24,N25,N26,N27,N28 
INTEGER *4  N 29 , N 30 , N3 1 , N32 , N 33 , N34 , N 3 5 f N 36 , N 3 7 , N 38 , N 5A , N 5 B 
COMMON  /WAREA/  A(60000) 

COMMON  /NPARM/  N 1 . N 2 , N3 , N4 , N 5 , N 6 , N 7 , N8 , N9 , N 1 0 , N 1 1 , N 1 2 , N 1 3 , 

*  N14,N15,N16,N17,N18,N19,N20,N21,N22,N23,N24,N25,N26,N27, 

*  N28,N29,N30,N31,N32,N33,N34,N35,N36,N37,N38,N5A,N5B 
COMMON  /ZAREA/  Z(1500) 

COMMON  /LPARM/  L 1 , L2 , L3 , L4 , L5 , L6 , L7 , L8 , L9 , L 1 0 , MAX  I P , MX  I P , MXSH , 

*  LBBB,LDDD,NELS 

COMMON  /MMBDP/  NUMNP , NUMEL , NUMMAT , NVIS , NSKEW , NEQ , MBAND 
COMMON  /PRELF/  NUMLP , NUMLH , NUMTP , NTYPE , DTXX 
COMMON  /VELLF/  NUMVEL , NUMVH , NUMVTP , NVTYPE , DTXV 

WRITE( 6 , * )  N1,N2,N3,N4,N5,N6,N7,N8,N9,N10 
WRITE( 6 , * )  N11,N12,N13,N14,N15,N16,N17,N18,N19,N20 
WRITE( 6 ,  * )  N21 .N22.N23, N24,N25,N 26 , N27 , N28 , N29 , N30 
WRITE (6,*)  N31 ,N32,N33,N34,N35,N36,N37,N38,N5A,N5B 
WRITE( 6  f  * )  *  LPARAMETERS  * 

WRITE( 6 , * )  LI , L2,L3, L4,L5, L6 , L7 , L8 , L9 , L 10 
WRITE(6,*)  MAXIP,MXIP,MXSH,LBBB,LDDD,NELS 

CALL  SOLVE(NEQ, NUMLH, NUMNP, A(N2) ,A(N3) , A ( N4 ) ,A(N5B) , A ( N6 ) , A ( N 7 ) , 

*  A(N8),A(N9),A(N10),A(N11),A(N12),A(N13),A(N14),A(N15),A(N16), 

*  A ( N 1 7 ) , A ( N 1 8 ) , A ( N 1 9 ) ,A(N20) , A ( N 2 1 ) , A ( N  1 )  ,  A ( N 2 2 ) , A ( N 2 3 ) , A ( N 2 4 ) , 

*  A(N25)',A(N26)  ,A(N27)  ,A(N28)  ,  NUMEL,  A(N29.)  ,A(N30)  ,A(N31)  ,A(N32)  , 

*  A(N33) ,A(N34) ,A(N35) ,A(N36) ,A(N37) ,A(N38) , NUMVTP, A(N5) , 

*  A(N5A) , MBAND, Z(L1) ,Z(L2) ,Z(L3) ,Z(L4) ,Z(L5) ,Z(L6) ,Z(L1) , 

*  Z(L7) ,Z(L8) ,Z(L9) ,Z(L8) ,MAXIP,MXIP,MXSH,LBBB,LDDD,NELS) 

CALL  SEGRT 
RETURN 

END 

SUBROUTINE  POPS ( PF , TT , DU , DW , CM , NCC ) 

DIMENSION  TT( 1 ) , DU ( 1 ) , DW( 1 ) 

EMA  PF,TT 

COMPUTE  PORE  PRESSURE  INCREMENT 

DPF  =  0.0 
DO  100  1=1, NCC 

DPF  =  DPF+CM*(TT(I)*DU(I)+TT(I)*DW(I)) 

100  CONTINUE 

UPDATE  PORE  PRESSURE 


PF  =  PF+DPF 

RETURN 

END 

SUBROUTINE  R ES L F ( TT , P F , W I W J , NCC , RS , R F ) 

DIMENSION  TT( 1 ) , RS ( 1 ) , RF(  1  ) 

C  EM A  TT.WIWJ 

C 

C  SOLID  AND  FLUID  PHASE  ELEMENT  LOAD  VECTOR  DUE  TO  PORE  PRESSURE 

C 

WPF  =  -WIWJ*PF 
DO  IOO  1=1, NCC 
RS ( I )  =  RS ( I ) +WPF*TT( I ) 

RF( I )  =  R F ( I ) +WPF*TT ( I ) 

100  CONTINUE 
RETURN 
END 

SUBROUTINE  CALTT(TT , B, EN , XBAR , NC , IP , MAXIP) 

DIMENSION  B(2,8, 1) , EN ( 8 , 1) ,TT( 16, 1) 

C  EMA  TT , B , EN , XBAR 

DO  500  11=1, MAXIP 
DO  300  1=1 ,NC 
IF(IP.LT.3)  GO  TO  200 

IF(IP.EQ.3)  TT( I , I I )  =  B(1,I,II)+EN(I,II)/XBAR(II) 

IF( IP . EQ . 4 )  TT( I , II )  =  B(1 , I , II )+2 . *EN( I , II ) /XBAR( II ) 

GO  TO  250 

200  TT( I , II )  =  B( 1 , I , II ) 

250  TT( I  +  NC , 1 1 )  =  B ( 2 , 1 , 1 1 ) 

300  CONTINUE 
500  CONTINUE 
RETURN 
END 
C 

C  $  EMA  /OUTPS/./OUTHS/ 

SUBROUTINE  SOLVE( NEQ , NUMLH , NUMNP , XA , YA , PROP , GKO , GK , GH , GM , MB , 

*  MBM,MBD,AO,OAO,RLV,UI,VA,DISP, VEL , ACC , TS , GACL , ID , DYL , IEQH , CINT , 

*  TD,UNV,SRT,PRF,NUMEL,DAAA,DBBB,DDDD,IVIS,VISC,KVEL, KEQH , 

*  VINT.TV.SVEL.NUMVTP.ISKEW, ACS , MBAND , NINT , B , EN , XBAR , YBAR, 

*  WIWJ,BBB,TT, PSA, PFA.DDD, MAXIP, MXIP,MXSH,LBBB,LDDD,NELS) 

COMMON  /BATCH/  IBATCH 

COMMON  /GENOP/  NF , NTCSF , ISFG , IP , NLNR , I  CONST , NFG 
COMMON  /GCALP/  NC YCL , DT , NUPDAT , ITER 

COMMON  /MMBDP/  NUMN X , NUM EX , NUMM AT , N V I S , NS K EW , NEQX , M B A NDX 

COMMON  / ACCLF/  MTYPE , NUMAP , DTXA 

COMMON  /PRELF/  NUMLP , NUMLX , NUMTP , NTYPE , DTXX 

COMMON  /  VELLF/  I  VEL  ,  NUM'VH  ,  NUMVTX  ,  NVTYPE  ,  DTXV 

COMMON  /OUTPS/  NPFL.N DC, NSG,N PRINT, NPEL,NPMT,NPRT( 1500) ,NPM(  1500) 
COMMON  /OUTHS/  NTHS , N H PEL , N HPMT , N H P RT ( 1 00 ) , NH PM ( 1 00 ) 

COMMON  / 1 NTCN  /  AA,AA1,AA2,BB,BB1  ,  B  B  2  ,  A  1  ,  A  2  ,  A  3  ,  B 1  ,  B  2  ,  B  3 

*  Cl, C2.C3.TETA, BETA, GAMA, ALPA 

COMMON  / EDT/  N EL , I X S ( 1 6 ) , I X F ( 1 6 ) , N P ( 8 ) , M I DS I D ( 4 ) , I N N ( 3 ) , 

*  I S  F ( 8 ) , NC , NCC 
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DIMENSION'  X  A  (  1  )  ,  Y  A  (  1  )  , 

*  C  K  O  (  XEQ, MBAND)  ,  C  H  (  N  E  Q  ,  1  )  ,  CM  (  X  EO  ,  1  )  ,  M  B  (  I  )  ,  MBM(  1  )  ,MBD(  1  )  , 

A  0  (  1  )  ,  0  A  0  (  l  )  ,  R  L  V  (  1  )  ,  DU  (  16)  ,DW(  16)  ,  U  I  (  1  )  ,  R  S  (  1  6  )  ,  R  F  (  1  6  )  ,STRN(4  ) 

*  STRS(4  )  ,DP(4,4)  ,  EST(  16,  16)  ,  VA(  1  )  ,  DISP(  1  )  ,  VEL(  1  )  ,  ACC(  1  )  ,TS(  1  )  , 

*  G  A  C  L  (  1)  ,  I  D  (  X  U  M  X  P  ,  1  )  , D  Y  L ( N  UM  LH ,  1  )  ,  I  EQ  H  (  3,  1  )  ,  C I N  T  (  1  )  ,TD(  1  )  , 

*  PROP( 30, 1 ) ,UNV( 1 ) , SS(4 , 16) ,SRT( 4 ,MXI P, 1 ) , PRF(MX IP , 1 ) ,SWI  (  4 ) , 

*  I  v  I  s  (  1 ) , VISCC 1 ) , KVEL( 1 ) , K  EQH ( 1),VINT(1),TV(1),SVEL( NUMVTP, 1  )  , 

*  ISKEW(  5, 1 ) , ACS( 2 , 1 ) , LTIME( 15) , GK ( N EQ , MBAND ) , 

*  STRS0(4) , B(2,8,MAXIP) , EN(8,MAXIP) ,XBAR(MAXIP) .YBAR(MAXIP) , 

*  WIWJ(MAXIP) .BBB(LBBB) ,TT( 16.MAXIP)  , 

*  PSA(MXSH,MXIP) .PFA(MXIP) ,DDD(LDDD) ,AAA(58) , DA A A ( 58 , NELS ) , 

*  DBBB(LBBB, NELS) , DDDD( LDDD , NELS , 1 ) , EDI S P ( 1 6 ) , ESTRN ( 4 ,16) 

EM A  XA,YA,PROP,GKO,GK,GH,GM,MB,MBM,MBD,AO,OAO,RLV,UI , VA, DISP, 

*  VEL, ACC.TS.GACL, ID, DYL, IEQH ,CINT,TD,UNV, SRT, PRF.DAAA ,DBBB, 

*  DDDD.IVIS, VISC, KVEL.K  EQH, VINT, TV, SVEL.ISKEW, ACS, NINT.B.EN', 

*  XBAR, YBAR, WIWJ, BBB.TT.PS A, PFA.DDD 


EQUIVALENCE(NEL,AAA(  1)  ) 

C 

C 

CALL  EZERO(OAO.NEQ) 

NH  «  MBAND- 1 
NCL  =  0 
LSTRT  =  0 
TM  =  0.0 
NFIRST  =  0 
.  NDSKI  =  10 
NDSK2  «  11 
KUPDAT  =  0 
NFSTF  =  1 
NTER  =  0 
I  END  =  ITER 

IF(ITER.NE.O)  ITER  =  1 

ISAS  =  IEND-1 

MMM  =  1 

NNN  =  0 

MCO  =  0 

ITENTH  =  10 

IPER  =  0 

CALL  EZERO(UI ,NEQ) 

CALL  EZERO( DISP , NEQ) 

CALL  EZERO(VEL.NEQ) 

CALL  EZERO(ACC.NEQ) 

C 

I F( NELS . EQ . NUMEL )  CALL  TRANS ( 3 , DA A A , NUMEL , 58 , A A A ) 

C 

100  CONTINUE 

I F ( NTER . EQ.  1  )  GO  TO  120 
NCL  =  NCL+1 

C  CALL  FTIME(LTIME) 


250 


WRITE(  1,1)  N'CL,  (LTIME(I)  ,  1  =  1,15) 

1  FORMAT( -STARTING  CYCLE  =  *,I5/15A2) 

I F( I  BATCH . EQ . 1 )  CO  TO  3220 
RPER  =  NCL* 100. /NCYCL 
IPER  =  I  FT  X ( RPER ) 

IF(IPER.NE. I TENTH)  GO  TO  3220 
PRINT  3210, ITENTH, NCL 

3210  FORMAT( IX, "FINISHED  WITH  ",I3,"%  OF  THE  STEPS  AT  STEP  # 
.15) 

ITENTH  =  ITENTH  +  10 
3220  CONTINUE 

TM  =  TM+DT 
120  CONTINUE 

IF( NFIRST . EQ . 0 )  GO  TO  162 
KUPDAT  =  KUPDAT+1 
IF(KUPDAT.LT.NUPDAT)  GO  TO  164 
162  NFSTF  =  1 
KUPDAT  =  0 
GO  TO  165 

164  NFSTF  =  0 

165  CONTINUE 
NSK  =  1 
NSU  =  1 
NSR  =  1 

IF(NELS.EQ.NUMEL)  GO  TO  182 
REWIND  3 
REWIND  4 
REWIND  NDSK1 
REWIND  NDSK2 
182  CONTINUE 

IF(NLNR.EQ.O. AND. NFIRST. NE.O)  GO  TO  190 

IF(NFSTF.NE.l)  GO  TO  190 
WRITE( 6 , * )  "BEFORE  EDPLV" 

CALL  TDPLV (GKO,GK,NEQ,MBAND) 

WRITEC1,*)  *AFTER  EDPLV* 

190  CONTINUE 

CALL  EZERO(RLV.NEQ) 

ICNT  =  1 
IHCNT  =  1 

I F ( NTER . EQ .  1)  GO  TO  210 
IF(MMM.NE.O)  GO  TO  210 
WRITE(MSTR, 2010)  TM-DT 
WRITE(MSTR,2020) 

210  CONTINUE 

DO  330  NUM  =  l.NUMEL 
RELP  =  FLOAT ( NUM ) 

IF(NELS.EQ.O)  READ  (3)  AAA 

IF(NELS. EQ.NUMEL)  CALL  WR I D3 ( DA A A ( 1 , NUM ) , 58 , A A A , 0 ) 
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GOOD  FOR  CYBER 
IF(NELS.EQ.O)  READ  (4)  BBB 

IF(NELS.EQ.NUMEL)  CALL  WREAD( DBBB( 1 , NUM ) , LBBB , BBB , 0 ) 

EMNO  =  PROP( 1 , MAT ) 

MNO  =  INT(EMNO) 

TENS  =  PROP( 2 , MAT ) 

ITEN  =  INT(TENS) 

STIFAC  =  PROP( 3 , MAT ) 

SHEFAC  =  PROP( 4 , MAT ) 

PMN  =  PROP( 5 , MAT ) 

BK  =  PROP( 6 , MAT ) 

G  =  PROP(7,MAT) 

CM  =  PROP( 26 ,MAT) 

NMPK  =  0 

IF(EMNO.NE.O.O)  NMPK  =  1 
IF( NFIRST . EQ . 0 )  GO  TO  230 

GOOD  FOR  CYBER 

IF(NELS.EQ.O)  READ  ( NDSK1 )  DDD 

IF(NELS.EQ.NUMEL)  CALL  WREAD( DDDD( 1 , NUM , NDSK 1-9 ) , LDDD , DDD , 0) 
GO  TO  240 
230  CONTINUE 

IF(NLNR.NE.O)  GO  TO  235 
CALL  EZERO(PSA,MXSH*MXIP) 

IF(ISFG.EQ.0.0R.ISFG.GE.3)  GO  TO  240 
DO  232  1*1,4 
DO  232  J*  1 , MXIP 
232  PSA ( I , J )  -  SRT( I , J , NUM) 

GO  TO  240 

C  235  CALL  INITZ( PS A , NUM , SRT , PROP , M AT , NINT) 

235  CALL  EZERO(PSA,MXSH*MXIP) 

IF(ISFG.EQ.0.0R.ISFG.GE.3),  GO  TO  240 
DO  236  1*1,4 

DO  236  J-l.MXIP 

236  PSA(I.J)  =  -SRT( I , J , NUM ) 

240  CONTINUE 

C 

IF(NFIRST.NE.O)  GO  TO  242 
CALL  SZERO(DU.NCC) 

CALL  SZERO(EDISP.NCC) 

I F ( NTCSF . EQ . 2 )  GO  TO  245 
CALL  SZERO(DW.NCC) 

CALL  EZERO(PFA.MXIP) 

IF(ISFG.EQ.0.0R.ISFG.EQ.2)  GO  TO  245 
DO  241  1*1, MXIP 


c 


I 


PFA ( I )  =  PRF( I , N  UM ) 

241  CONTINUE 

CO  TO  245 

242  CONTINUE 

CALL  EXTRT(DU,IXS,UI ,NCC) 

CALL  EXTRT(EDISP,IXS,DISP,NCC) 

IF(NTCSF.NE.2)  CALL  EXTRT( DW , I XF , UI , NCC ) 

C 

IF(NSKEW.EQ.O)  GO  TO  243 
IF(NSU.GT.NSKEW)  GO  TO  243 
IF(NUM.NE.ISKEW(1,NSU))  GO  TO  243 
INX  =  ISKEW( 2 , NSU ) 

JNX  =  ISKEW(3,NSU) 

KNX  =  ISKEW( 4 , NSU ) 

MSF  =  ISKEW( 5 , NSU  ) 

CSC  =  ACS ( 1 , NSU ) 

CSS  =  -ACS ( 2 , NSU) 

IF(MSF.EQ.l)  GO  TO  2425 

CALL  MSKEW(DU, 16,NC, 1 ,INX, JNX , KNX , 2 , CSC , CSS ) 

CALL  MSKEW(EDISP,16,NC,1,INX,JNX,KNX,2,CSC,CSS) 

2425  IF(MSF.EQ.2)  GO  TO  2426 

CALL  MSKEW(DW, 16.NC, l.INX, JNX , KNX , 2 , CSC , CSS ) 

2426  CONTINUE 
NSU  =  NSU+1 

243  CONTINUE 
245  CONTINUE 

C 

CALL  SZERO(RS.NCC) 

IF( NTCSF . NE . 2 )  CALL  SZERO( RF , NCC ) 

IF(NLNR.NE.O. AND.NFSTF.EQ. 1 )  CALL  SZERO( EST , 1 6*1 6 ) 

C 

DO  290  11=1, NINT 
N  .  II 
M  -  II 

IF(MXIP.NE.l)  GO  TO  250 
N  =  1 

M  *  NINT+1 
250  CONTINUE 

IF(MXIP.EQ.l.AND.II.GT.l)  GO  TO  9901 
IF(NTER.EQ.l)  CALL  DUPVX ( STRSO , PS A ( 1 , N ) ) 

CALL  ELSTN ( B( 1 , 1 , M ) , EN ( 1 , M ) , X BAR ( M ) , DU , STRN , NC , I P ) 

CALL  ELSTN( B( 1 , 1 , M ) , EN ( 1 , M ) , XBAR ( M ) , EDISP , ESTRN ( 1 , N) ,NC, IP) 
IF(NFIRST.EQ.O.AND.NLNR.NE.O)  PSA(6,N)  =  -1000. 
IF(NMPK.EQ.l)  CALL  SIGN(STRN,4) 

C 

IF(NMPK.EQ.O.OR.NLNR.EQ.O)  GO  TO  9000 
GO  TO  (9001,9002,9003,9004,9005),  NLNR 
WRITE(6, 2031  ) 

2031  FORMAT ( 3 2 H  MATERIAL  MODEL  IS  NOT  AVAILABLE  ) 

STOP 


253 
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9000  CONTINUE 

LINEAR  ELASTIC  MATERIAL  MODEL 

CALL  MTPK0( PSA ( I , N ) , STRN.BK.C) 

CALL  ELAST( BK ,G , DP) 

GO  TO  9009 

9001  CONTINUE 

DECOUPLED  ELASTO-PLASTIC  MATERIAL  MODEL  (DC0UP) 

CALL  MTPK1(PSA(1,N),STRN, DP, NFIRST, NFSTF, MN0,BK,G,PR0P( 1 .MAT) ) 

GO  TO  9009 

9002  CONTINUE 

CAP  MODEL 

WRITE( 6 ,2031) 

STOP 

9003  CONTINUE 

AFWL  ENGINEERING  MODEL 

WRITE(6 , 2031 ) 

STOP 

9004  CONTINUE 

UNIAXIAL-STRAIN  MATERIAL  MODEL  (UNIAX) 

CALL  MTPK4(PSA(1 ,N) . STRN , DP , NFIRST , NFSTF , MNO , PR0P( 1 .MAT)) 

GO  TO  9009 

9005  CONTINUE 

ARA2D  MATERIAL  MODEL 

CALL  MTPK5(PSA(1 ,N) , STRN , DP , NFIRST , NFSTF , BK , G . PROP ( 1 .MAT) , IP) 

9009  CONTINUE 

IF(NLNR.EQ.O)  GO  TO  280 
IF(NFSTF.EQ.O)  GO  TO  280 
IF(ITEN.NE.0.AND.NLNR.NE.5) 

*  CALL  CUTEN(NMPK,DP,PSA(1,N),IP,STIFAC,SHEFAC,PMN, 

*  PS A ( 6 , N )  ) 

9901  CONTINUE 

IF(NLNR. EQ.O. OR. NFSTF. EQ.O)  GO  TO  280 

CALL  ELSTF ( B( 1 , 1 , 1 1 ) , DP , EN ( 1 , 1 1 ) , X BAR ( 1 1 ) , WI W J ( 1 1 ) , NC , NCC , EST , I P , 

*  0) 

280  CONTINUE 

IF(MXIP.EQ. 1 . AND. II .GT.  1  )  GO  TO  285 


IF(NTER.NE.l)  CALL  DUPVX ( STRS , PS A ( 1 , N  ) ) 

IF(NTER.EQ.l)  CALL  DUP VT ( STRSO , STRS ) 

IF(NMPK.EQ.l)  CALL  S1GN(STRS,4) 

TF(ISFC.EQ.O.OR.TSFG.GE.3)  GO  TO  282 
DO  281  1=1,4 

281  SWI(I)  =  STRS(I)-SRT(I ,N,NUM) 

GO  TO  285 

282  CONTINUE 

DO  283  1=1,4 

283  SWI(I)  =  STRS ( I ) 

285  CALL  RESLS ( B ( 1 , 1 , I I ) , SWI , EN ( 1 , I I ) , XBAR ( I I ) , WIWJ ( I I ) , NC , RS , IP ) 
290  CONTINUE 

IF(NSKEW.EQ.O)  GO  TO  288 
IF(NSK.GT.NSKEW)  GO  TO  288 
IF(NUM.NE.ISKEW( 1 ,NSK) )  GO  TO  288 
MSF  =  ISKEW(5,NSK) 

IF(MSF.EQ.l)  GO  TO  286 
INX  =  ISKEW(2,NSK) 

JNX  »  ISKEW( 3 ,  NSK ) 

KNX  =  ISKEW(4,NSK) 

CSC  -  ACS(l.NSK) 

CSS  =  ACS ( 2 , NSK ) 

I F (  NTCSF . EQ . 2 )  CALL  MSKEW( RS , 1 6 , NC , 1 , INX , JNX , KNX , 2 , CSC , CSS ) 
IF(NLNR.NE.O.OR.NFSTF.NE.O) 

*  CALL  MSKEW(EST, 16 , NC , NCC , INX , JNX , KNX , 3 , CSC , CSS ) 

286  NSK  =  NSK+1 
288  CONTINUE 

CALL  ALPHA ( EST ) 

IF(NLNR.NE.O.AND.NFSTF.NE.O) 

*  CALL  ESMBL(GK , DUM , EST , DUM ,IXS,IXS,NEQ,MBAND,16,2,NCC,NCC) 

IF( NTCSF . EQ . 2 ) 

*  CALL  ESMBL(DUM,RLV,DUM,RS,IXS,DUM,NEQ,DUM, 1 6 , 3 , NCC , DUM ) 
IF(KF.EQ.1.0R.NTCSF.EQ.2)  GO  TO  305 

CALL  CALTT(TT,B,EN,XBAR,NC, IP, MAX  IP) 

DO  300  11=1, NINT 
N  =  II 
M  =  II 

IF(MXIP.NE. 1 )  GO  TO  9905 
N  =  1 

M  =  NINT+1 

9905  CONTINUE  • 

IF(MXIP.EQ.l.AND.II.GT.l)  GO  TO  295 

IF(NFIRST.NE.O)  CALL  POPS ( PFA ( N ) , TT( 1 , M ) , DU , DW , CM , NCC ) 
IF(ISFG.EQ.1.0R.ISFG.EQ.3)  GO  TO  293 


PWI  =  P  F  A ( \ ) 

GO  TO  295 

293  PUT  =  P  F  A  (  N  )  -  P  R  F  (  N  ,  N  U  M  ) 

295  CALL  RFSLF( TT( 1 , 1 1 ) , PWI , WI WJ ( 1 1 ) , NCC , RS , R F ) 

300  CONTINUE 

IF(NSKEW.EQ.O)  GO  TO  304 
I F( NSR . GT . NSKEW )  GO  TO  304 
IF(NUM.NE.ISKEW( 1 ,NSR) )  GO  TO  304 
MSF  =  ISKEW(5,NSR) 

I NX  =  ISKEW(2,NSR) 

JNX  =  ISKEW(3,NSR) 

KNX  =  ISKEW( 4 , NSR ) 

CSC  =  ACS ( 1 , NSR ) 

CSS  =  ACS ( 2 , NSR ) 

IF(MSF.NE.l)  CALL  MSKEW( RS , 1 6 , NC , 1 , INX , JNX , KNX , 2 , CSC , CSS ) 
IF(MSF.NE.2)  CALL  MSKEW( RF , 1 6 , NC , 1 , INX , JNX , KNX , 2 , CSC , CSS ) 
NSR  =  NSR+1 

304  CONTINUE 

CALL  ESMBL( DUM , RLV , DUM , RS , I XS , DUM , NEQ , DUM , 1 6 , 3 , NCC , DUM ) 
CALL  ESMBL(DUM ,  RLV , DUM , RF , IXF, DUM ,  NEQ , DUM, 16 , 3 , NCC , DUM) 

305  CONTINUE 
IF(NTER.EQ.l)  GO  TO  320 


GOOD  FOR  CYBER 

IF(NELS.EQ.O)  WRITE  ( NDSK2 )  DDD 

IF(NELS.EQ.NUMEL)  CALL  WREAD( DDDD( 1 , NUM , NDSK2-9 ) , LDDD , DDD , 1 ) 

IF(NCL.EQ.l)  GO  TO  320 
IF(NTHS.EQ.O)  GO  TO  308 
IF( NTHS . EQ . 1 )  GO  TO  308 
IF(IHCNT.GT.NHPEL)  GO  TO  306 
IF(NHPRT( IHCNT) .NE.NUM)  GO  TO  306 
IHCNT  *  IHCNT+1 

CALL  STRCL(30,NUM,NMPK,ESTRN,MXIP,MXSH,NLNR,NTCSF,NINT, KS.KF, 

*  SS , PSA , PFA ) 

306  CONTINUE 

308  IF(MMM.NE.O)  GO  TO  320 

IF(ICNT.GT.NPEL)  GO  TO  320 
IF(NPRT(ICNT).. NE.NUM)  GO  TO  320 
ICNT  =  ICNT+1 

CALL  STRCL(MSTR , NUM , NMPK , ESTRN ,MXIP,MXSH,NLNR, NTCSF , NINT , KS , KF , 

*  SS, PSA, PFA) 

320  CONTINUE 

330  CONTINUE 


on  non  o  on  on 


WRITE(6,*)  "AFTER  ELEMENT  OPERATION" 

IF(NCL.CT.NCYCL)  GO  TO  950 
T  F ( NTCSF.EQ. 1 )  GO  TO  380 

DO  350  1=1 , NEQ 

350  V A ( I )  -  AA1*VEL(I)  +  AA2*ACC(I) 

I F( ICONST . EQ . 0)  GO  TO  360 
CALL  MLTPL(GM,RLV,VA,MBM,NEQ) 

GO  TO  380 
360  CONTINUE 

DO  370  1=1, NEQ 

370  RLV(I)  =  RLV(I)+GM(I,1)*VA(I) 

380  CONTINUE 

I F ( NTCSF . EQ . 2 )  GO  TO  400 
DO  390  1=1, NEQ 

390  V A ( I )  =  BB1*VEL(I)  +  BB2*ACC(I) 

CALL  MLTPL(GH,RLV,VA,MBD,NEQ) 

400  CONTINUE 

ISAS  =  ISAS+1 
IF(ISAS.GT.IEND)  ISAS  =  0 
IF(ITER.EQ.l. AND. ISAS. LT.IEND)  NTER  =  1 
IF(ITER.EQ. 1. AND. ISAS. EQ.IEND)  NTER  =  2 
CALL  EZERO(AO.NEQ) 

BASE  ACCELERATION  OR  DYNAMIC  LOAD 

IF( NFG . NE . 3 ) 

*  CALL  DLOAD(TS,GACL,ID,GM,AO,TM,DYL,IEQH,CINT,TD,XA,UNV,MBM, 

*  LSTRT , NUMNP , NEQ , NUMLH , AA , BB) 

WRITE(6,*)  "AFTER  DLOAD" 

DO  410  1=1, NEQ 

410  RLV(I)  =  RLV(I)+OAO(I)+TETA*(AO(I)-OAO(I) ) 

IF(IVEL.NE.O)  CALL  VELBC( NLNR , NFIRST , I VEL , NUMVH , NUMVTP , NEQ , 

*  MBAND,ID,GK,GKO,RLV, VEL, ACC, KVEL, KEQH, VINT, TV, SVEL.TM, NUMNP, 

*  NVTYPE , DTXV ) 

IF(NLNR.EQ.O. AND. NFIRST. NE.O)  GO  TO  415 

IF(NFSTF.EQ.O)  GO  TO  415 
IF(NVIS.EQ.O)  GO  TO  414 
DO  413  1=1 , NVIS 
K  =  IVIS(I) 

GK(K,1)  =  G  K ( K , 1 )  +  BB*VISC( I ) 

413  CONTINUE 

414  CONTINUE 

CALL  TRIA(NEQ,MBAND,GK,MB) 


n  o 


415  CONTINUE 
IF(NVTS.EQ.O)  CO  TO  418 
DO  416  1=1 ,NVIS 
K  =  1  V  T  S  (  1  ) 

RLV(K)  =  RLV(K)+BB*VISC(I)*(BB1*VEL(K)+BB2*ACC(K)) 

416  CONTINUE 
418  CONTINUE 

CALL  BACKS(NEQ,GK,RLV,MB) 

WRITE( 6 , * )  "AFTER  BACKS" 

DO  420  1=1, NEQ 
UI(I)  =  RLV(I) 

IF( NTER . EQ. 1 )  GO  TO  420 

DI  =  DISP(I)+A1*UI(  I)+A2*VEL(I)+A3*ACC(I) 

VE  =  B1*UI(I)+B2*VEL(I)+B3*ACC(I) 

AC  =  C1*UI(I)+C2*VEL(I)+C3*ACC(I) 

DISP(I)  =  DI 
VEL(I)  =  VE 
ACC ( I )  =  AC 
420  CONTINUE 

IF(NTER.EQ. I)  GO  TO  460 

IF(NTHS.EQ.O)  GO  TO  430 
IF( NTHS . EQ . 2 )  GO  TO  430 

CALL  DVAPR(NUMNP,DISP, VEL , ACC , ID , TM , NTCSF , 40 ) 

430  CONTINUE 

MMM  =  1 
NNN  =  NNN+1 

IF(NNN.NE.NPRINT)  GO  TO  450 
CALL  MDISC(NDC, NSG , MSTR , MDIS , MCO , 1) 

MMM  =  0 
NNN  =  0 

IF( NPFL . GE . 3 )  GO  TO  450 

CALL  DVAPR(NUMNP,DISP, VEL, ACC, ID, TM, NTCSF, MDIS) 

450  CONTINUE 

CALL  EDPLV(AO,OAO,NEQ) 

460  IF( NFIRST . EQ . 0 )  GO  TO  470 
IF(NTER.EQ.O)  GO  TO  470 
IF(NTER.EQ. 1. AND. ISAS. EQ.O)  GO  TO  470 
GO  TO  900 
470  NDSKT  =  NDSK1 
NDSK1  =  NDSK2 
NDSK2  =  NDSKT 
NFIRST  =  1 

900  IF(NCL.LE.NCYCL)  GO  TO  100 
C 

2010  FORMAT( 1H1 , / , * .  STRESSES  AT  TIME  =  *,E10.3,* 


*//) 


o  o 


I 


2020  FORMAT ( 3X , *ELEM  N0*,4X 
.  *SIGT*,6X,*SIGRZ*,9X 
.  2  7X  ,  *EPSR*  ,  7X  ,  *EPSZ* , 


C 


,*PNT  N 0 *  ,  7 X 
,  *PF*/ 

*7  V  I'iFPCT  *  a  V 
/  A  ,  •  l-  i  O  1  ,  vy 


*SICR*,7X,*SIGZ*17X, 
*  E  P  S  R  7  *  ,  9  X  ,  *  Y  F  *  /  /  ) 


950  CALL  M D 1  SC ( N DC , NSG , MSTR , MD I S , MCO , 2 ) 

RETURN 

END 

C  $ EMA  /0UTPS/./0UTHS/ 

SUBROUTINE  DVAPR( NUMNP , DISP , VEL , ACC , ID , TIME , NTCSF , MDIS ) 

COMMON  /OUTPS/  NPFL , NDC , NSG , NPR I  NT , NPEL , NPMT , NPRT(  1 500 ) , NPM(  1 500) 
COMMON  /OUTHS/  NTHS , NHPEL , NHPMT , NHPRT( 100 ) , NHPM ( 1 00 ) 

DIMENSION  ID(NUMNP,4) , DISP( 1 )  , VEL(1 ) , ACC( 1 ) , DS ( 4 , 3 ) , DSS ( 2 , 3 ) 

EMA  DISP, VEL, ACC, ID 


IF(MDIS.EQ.40)  GO  TO  210 
WRITE(MDIS,2017)  TIME 
I F ( NTCSF . NE . 2 )  WRITE(MDIS , 201 1  ) 

IF( NTCSF . EQ . 2 )  WRITE(MDIS , 2018 ) 

210  ICONT  =  1 
IHCONT  =  1 
DO  240  1=1, NUMNP 
IF(MDIS.NE.40)  GO  TO  225 
IF(IHCONT.GT. NHPMT)  GO  TO  240 
IF(NHPM(IHCONT) .NE.I)  GO  TO  240 
IHCONT  =  IHCONT+1 
GO  TO  230 

225  IF( ICONT . GT . NPMT)  GO  TO  240 
IF(N PM (ICONT). NE.I)  GO  TO  240 
ICONT  =  ICONT+1 

230  I F ( NTCSF . NE . 2 )  CALL  SZER0(DS,12) 

I F ( NTCSF . EQ . 2 )  CALL  SZER0(DSS,6) 

NN  =  4 

IF( NTCSF . EQ . 2 )  NN  =  2 
DO  235  J= 1 , NN 
K  =  ID( I , J ) 

IF( K )  235,235,232 

232  IF(NTCSF.NE.2)  GO  TO  233 
DSS ( J  ,  1 )  =  DISP(K) 

DSS ( J , 2 )  =  VEL(K) 

DSS ( J , 3 )  =  ACC(K) 

GO  TO  235 

233  DS( J  ,  1  )  =  DISP(K) 

DS ( J  ,  2  )  =  VEL(K) 

DS ( J , 3  )  =  ACC(K) 

231  CONTINUE 

IF(NTCSF.NE. 2)  WR ITE ( MDIS  ,  20  1  2  )  I,DS 
IF(NTCSF. EQ. 2 )  WR ITE( MDI S  ,  20  1  9 )  I, DSS 
240  CONTINUE 

2011  FORM AT( 

.  4X,*N0DE*,  17  X,*  DISPLACEMENT*,  30X,*  VELOCITY  ’".SOX,*  ACCELERATION*/ 


1 


‘it* 

;$S 

8 

‘•S' 

•fyi 


$ 


Vi 


m 

i 

rJi 


w; 

J;;5 

;:;5 

MS 

$ 

$ 

I 

I 

*V» 


.  4X  ,  *NUMB£R*  ,  5X  ,  -UR-  ,  8X  ,  -UZ-  ,  8X  ,  *WR* , 8X  ,  *WZ*  ,  8X  ,  -  UR*  ,  8X  ,  -l'/.*  ,8X, 

.  - W R -  ,  8X , -WZ- , 8X , *UR* , 8X , *UZ* , 8X , -WR- , 8X , *WZ* / / ) 

2012  FORMAT ( 1 10, 12E10.3) 

2017  FORMAT  (  1 U  1  ,  * .  RESPONSE  AT  TIME  =  *,E10.3f*  . *//) 

2018  FORMAT! 4X , - NODE  * , 6X , ^DISPLACEMENT* , 1  OX ,* VELOCITY* ,  1  OX , 

.  *  ACCELERATION*,/  4  X , *NUMBER* , 5X , *UR* , 8X , *UZ* , 8X ,  *U  R-.8X, 

.  *UZ*,8X,*UR*,8X,*UZ*//) 

2019  FORMAT(I10,6E10.3) 

RETURN 

END 

SUBROUTINE  STRSP ( N EL , N I P , S , P , E , KS , K F , NTCSF , YF , MSTR ) 

DIMENSION  S(4, 16) »P( 1) ,E(4, 16) ,YF( 16) 

:  EMA  P 

WRITE(MSTR,2010)  NEL 

IF(KF.EQ.1.0R.NTCSF.EQ.2)  CALL  EZERO(P.NIP) 

DO  100  1=1 , NIP 

WRITE( MSTR, 2020)  ( I , ( S ( J , I ) , J- 1 , 4 ) , P( I ) ) 

WRITE(MSTR, 2022)  (  ( E( J , I ) , J-l , 4  )  , YF ( I ) ) 

100  CONTINUE 

WRITE(MSTR, 2030) 

2010  FORMAT (110) 

2020  FORMAT! 15X, 15, 5E11.4) 

2022  F0RMAT(20X,4E11.4,F11.2) 

2030  FORMAT!//) 

RETURN 

END 

SUBROUTINE  STRCL(MSTR , NUM , NMPK , ESTRN , MXIP , MXSH , NLNR , NTCSF , NINT , 

*  KS , KF , SS , PSA , PFA ) 

DIMENSION  SS  ( 4  * 16) ,PSA(MXSH, 1 ) , PFA ( 1 ) , ESTRN ( 4 , 16) , YF( 16) 
l  EMA  NINT, PSA, PFA 

DO  310  1=1, MXIP 
YF( I )  =  PS A ( 7 , I ) 

IF(NLNR.EQ. 1 )  YF(I)  =  PSA(8,I) 

DO  310  J= 1 , 4 
310  SS(J,I)  =  PSA ( J , I ) 

IF( NMPK . NE . 0 )  CALL  S IGN ( SS , MXIP*4 ) 

CALL  STRSP (NUM, MXIP, SS, PFA, ESTRN, KS.KF, NTCSF, YF, MSTR) 

* 

RETURN 

END 

SUBROUTINE  DLOAD(TS , G ACL , I D , XM , AO , TM , DYL , I EQH , Cl  NT , TD , XC , 

*  UNV,MBM,LSTRT,NUMNP,NEQ,NUMLH,C2,C3) 

COMMON  /GENOP/  NF , NTCSF , ISFG , IP , NLNR , ICONST , NFG 
COMMON  /GCALP/  NCYCL , DT , NUPDAT , ITER 

COMMON  /MMBDP/  NUMNX , NUMEL , NUMMAT , N VIS , NSK EW , NEQX , MBAN D 

COMMON  / ACCLF/  MTYPE , NUMAP , DTXA 

COMMON  /PRELF/  NUMLP , NUMLX , NUMTP , NTYPE , DTX X 

DIMENSION  TS ( 1 ) ,GACL( 1 ) , ID( NUMNP , 1 ) , XM( NEQ , 1 ) , A0( 1 ) , UNV( 1 ) , MBM( 1 ) , 

*  DYL  (  NUMLI1 ,  1),  I  EQH(  3,  1),CINT(  1)  ,TD(1),XC(  1) 


* 


n  o  n  o 


EM A  TS.GACL, T D , XM , AO , DYL , I EQH , Cl  NT , TD , XC , UN V , MBM 
IF(NFG.NF. 1 )  GO  TO  300 
I F ( ESTRT.EQ. 1 )  GO  TO  1 50 


BASE  ACCELERATION  (  NFG  =  1  ) 
SET  UF  LOAD  MATRIX 


L  -  2 

DTX  =  DTXA 

IF(MTYPE.NE.O)  DTX  =  TS(2)-TS(I) 
NC  =  0 

CALL  EZERO(AO.NEQ) 


CONTINUE 

IF(MTYPE.NE.O)  GO  TO  154 


NC  =  NC+1 

ACCL  =  GACL ( NC+1 ) 

GO  TO  161 


CONTINUE 

IF( TS ( L ) -TM )  155,155,160 
DTX  =  TS(L+1 )-TS(L) 

L  =  L+l 

IF(DTX)  158,155,160 
WRITE(6 , 2010)  TS(L-l) 
STOP 


SLOPE  =  (GACL(L)-GACL(L-1))/DTX 
ACCL  =  GACL(L-1)+(TM-TS(L-1))*SL0PE 
CONTINUE 


ACCL  =  ACCL/C2 


I F ( ICONST . NE . 0 )  GO  TO  182 


DO  180  1  =  1  , NUMNP 
DO  170  J= 1 , 2 
II  =  J+J-l 
JJ  =  ID( I , I I ) 

IF(JJ)  170,170,165 
AO(JJ)  =  -ACCL*XM( J J , 1 ) 
CONTINUE 
CONTINUE 


GO  TO  195 
CONTINUE 

CALL  MLTPL(XM, AO , UN V f MBM , NEQ ) 


DO  185  1=1, NEQ 
A0( I )  =  -ACCL* A0( I ) 
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RETURN 

300  CONTINUE 

K  =  1 

PRESSURE  LOAD  (  NFG  =  2  OR  4  ) 

500  CONTINUE 

IF(TM.GE.TD(K) . AND . TM . LE . TD( K+ 1 ) )  GO  TO  520 
I F( TM . LT . TD( K ) )  K  =  K-1 
IF(TM.GT.TD(K+1 ) )  K  =  K  +  1 
GO  TO  500 
520  TD1  =  TD( K ) 

DTXX  =  TD( K+ 1 ) -TD( K ) 

DO  700  1=1 , NUMLP 
JJ  =  IEQH(l.I) 

IF(JJ.LE.O)  GO  TO  700 
LHNO  =  IEQH (2,1) 

C  =  CINT(I) 

SLOPE  =  C*(DYL(LHN0,K+1)-DYL(LHN0,K))/DTXX 
AO(JJ)  =  C*DYL(LHN0,K)+(TM-TD1)*SL0PE 
IF(IP.NE.4)  GO  TO  700 
AO(JJ)  =  0.5*A0(JJ) 

700  CONTINUE 
LSTRT  =  1 
RETURN 

2010  FORMAT (/*ERROR  IN  BASE  ACCEL  OR  DYN  LOAD,  TIME 
END 

SUBROUTINE  VXDUP(A.B) 

DIMENSION  A(4),B(4) 

EMA  A 

DO  100  1=1,4 
100  A ( I )  =  B( I ) 

RETURN 

END 

SUBROUTINE  DUPVT(A.B) 

DIMENSION  A ( 4 ) , B( 4  ) 

DO  100  1=1,4 

B(  I ) =A ( I  ) 

00  CONTINUE 
RETURN 


nnooooo  ooo  ooo  ooo  ooo  ooo  oooooooo 


C  FTN7X.L 
C  SEMA  /NALLO/ 

SUBROUTINE  MDTSC( NDC , N SC , MST R , M D 1 S , MCO , NF) 

C  COMMON  /NALLO/  NSDFL( 8 , 9 , 2 , 2 ) 

INTEGER  DINO(2,2) ,SDPR(2,2) , BLOC (2,2) , CM , CC , MM ( 2  ) ,NAME(8) ,N0(9) 
EMA  NDC, NSC 

DATA  DINO  /' 17193233'/ 

DATA  SDPR  /’STPRDIPR'/ 

DATA  BLOC  /'  100  50'/ 

DATA  NO  /* 1 :2:3:4:5:6:7:8:9: '/ 

DATA  CM  /':-'/ 

DATA  CC  /'::'/ 

MCO  =  MCO+1 
IF(NF.EQ.2)  GO  TO  600 
IF(NSG.NE.O)  GO  TO  400 

NSG  =  0  WRITE  OUTPUT  IN  ONE  FILE 

IF(MCO.NE.l)  RETURN 
IF(NDC.NE.O)  GO  TO  200 

NDC  =  0  WRITE  OUTPUT  ON  HARD  DISC 

MSTR  =  6 
MDIS  =  6 
RETURN 

NDC  =  1  WRITE  OUTPUT  ON  FLOPPY  DISC 


200  CONTINUE 
MSTR  =  7 
MDIS  =  7 
RETURN 

NSG  =  1  WRITE  OUTPUT  IN  MULTI-SEGMENTED  FILES 

400  CONTINUE 

IF(MCO.NE.l)  GO  TO  500 

MCO  =  1  INITIALIZE  DISC  NAMES 


II  =  NDC+1 
DO  460  1=1,2 
DO  440  J=1 ,9 
NSDFL( 1 , J , I , I I ) 
NSDFL(2,J,I,  II) 
NSDFL(3, J, I , II) 
NSDFL(4, J,I  ,  II) 
NSDFL( 5, J , I ,  II  ) 


SDPR(  1,1) 

S  DPR ( 2  ,  I ) 
N0(  J) 

CM 

DINO( I  ,  IT) 


263 


n  o  o  o  n  o  o  o  ooooooooo  nn  ooo  noooono  nnoon 


\SDFL( 6, J , I , 1 1 )  =  CC 
NSDFL( 7  ,  J , T  ,  IT  )  =  BLOC(l.I) 

NSDFL( 8 , J  ,  r  ,  I  I  )  =  BLOC (2,1) 

440  CONTINUE 
460  CONTINUE 
MSTR  =  60 
MDTS  =  70 
500  CONTINUE 

MSTR  =  MSTR+1 
MDIS  =  MDIS+1 
MM ( 1 )  =  MSTR 
MM ( 2 )  =  MDIS 
II  =  NDC+1 

IF(MCO.NE.l)  CL0SE(MSTR-1  ) 

IF(MCO.NE.l)  CL0SE(MDIS-1 ) 

DO  560  1=1,2 
DO  540  J-1,8 

540  NAME(J)  =  NSDFL(J,MCO,I,II) 

OPEN ( MM ( I) , FILE=NAME, STATUS =*NEW*) 

560  CONTINUE 
RETURN 

600  CONTINUE 

CLOSE  THE  OPENED  FILES 

IF(NSG.EQ.O)  RETURN 
CLOSE  (MSTR) 

CLOSE  (MDIS) 

RETURN 

END 

SUBROUTINE  ALPHA ( EST ) 

COMMON  /INTCN/  AA(18),ALPA 
DIMENSION  EST (16,16) 

FAC  =  1.0+ALPA 
DO  100  1=1,16 
DO  100  J=l,  16 

100  EST ( I , J )  =  FAC*EST(I,J) 

RETURN 

END 

SUBROUTINE  ESMBL( ST , VC , EST , EVC , NDR , NDC , NEQ , MBAND , NDOF , 

*  NF , NA , NAC ) 

DIMENSION  ST (NEQ, MBAND) , VC (NEQ) , EST (NDOF, 1) ,EVC( 1 ) , 

*  NDR(l) ,NDC( 1) 

EMA  ST, VC 

GLOBAL  MATRIX  AND  VECTOR  ASSEMBLY 


NF  = 

1 

MATRIX 

AND  VECTOR 

NF  = 

2 

MATRIX 

ONLY 

NF  = 

3 

VECTOR 

ONLY 
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IF(NF.EQ.3)  GO  TO  250 
DO  200  K  =  1  , N A 
IR  =  NDR(K) 

I F (  IR.LE.O)  GO  TO  200 
DO  100  L-l.NAC 
IC  =  NDC(L) 

IF(IC.LE.O)  GO  TO  100 
IC  =  IC-IR+1 
IF(IC.LE.O)  GO  TO  100 
ST( I R , IC )  =  ST(IR,IC)+EST(K,L) 
100  CONTINUE 
200  CONTINUE 

IF(NF.EQ.2)  GO  TO  350 
250  CONTINUE 

DO  300  K-l.NA 
IR  =  NDR(K) 

IF(IR.LE.O)  GO  TO  300 
VC(IR)  =  VCt IR )+EVC( K ) 

300  CONTINUE 
350  CONTINUE 
RETURN 
END 

SUBROUTINE  TRI A ( NEQ , M , A , MB) 
DIMENSION  A(NEQ, 1 ) , MB(NEQ) 

EMA  A, MB 

WRITE( 1 , * )  ^BEFORE  TRIA* 

NE  =  NEQ-1 
MN  =  M- 1 
MM  .  M 
MK  =  NEQ-MN 
DO  300  N= 1 , NE 
NT  =  N-MK 

IF(NT.GT.O)  MM  =  MM-1 
MB( N )  =  0 

IF(A(N,1).EQ.0.0)  GO  TO  300 
L  =  N 
IH  =  MM 
JB  -  0 
IB  *  0 

DO  200  1=2, IH 
L  =  L+l 
J  =  L 
IB  =  IB+1 
A I  =  A  (  N  ,  I ) 

C  =  AI/A(N, 1 ) 

IF(C.EQ.O.O)  GO  TO  200 
JC  =  1 

DO  100  k=I,IH 

A ( J  ,  JC  )  =  A(J,JC)-C*A(N, K ) 

100  JC  =  JC+1 
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jb  =  tb 

200  CONTINUE 
M B (  N  )  =  JB 
300  CONTINUE 

MB(NEQ)  =  0 
RETURN 
END 

SUBROUTINE  BACKS ( NN , A , B , MB ) 

DIMENSION  A(NN, I),B(NN),MB(NN) 

EMA  A , B,MB 

WRITE(1,*)  ^BEFORE  BACKS* 

N  =  0 

270  N  =  N+l 
C  =  B(N ) 

IF(A(N, 1) -NE.O.O)  B ( N )  =  B(N)/A(N,1) 
IF(N.EQ.NN)  GO  TO  300 
IL  =  N+l 
IH  -  N+MB( N ) 

M  =  1 

DO  285  I-IL.IH 
M  =  M+l 

285  B( I )  =  B(I)-A(N ,M)*C 
GO  TO  270 

300  IL  =  N 
N  =  N-l 

IF(N.EQ.O)  RETURN 
IH  =  N+MB( N ) 

M  =  1 
C  =  B(N) 

DO  400  I=IL,IH 
M  =  M+l 

400  C  =  C-A(N,M)*B(I) 

B(N)  *  C 
GO  TO  300 
END 

SUBROUTINE  MLTPL( A , B , BO , MB , NEQ) 
DIMENSION  A (NEQ, 1) , B( 1) ,B0( 1)  ,MB(  1) 

C  EMA  A, B, BO, MB 

DO  300  N= 1 , NEQ 
BB  =  A(N, 1)*B0(N) 

L  =  N 

NI  =  MB( N ) 

IF(NI.GT.I)  GO  TO  50 
GO  TO  120 
50  DO  100  M-2.NI 
L  =  L+l 

100  BB  =  B B  +  A (N,M)*BO(L) 

120  L  -  N 

NJ  =  MB( N+NEQ ) 
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I F( N J . GT . 1 )  GO  TO  150 
GO  TO  250 
150  DO  200  M  =  2 , N J 
L  =  L-l 

200  BB  =  BB+ A ( N-M+ 1 , M ) * B0( L ) 

250  B(N)  =  B(N)+BB 
300  CONTINUE 
RETURN 
END 

SUBROUTINE  TDPLV ( A , B , NR , NC) 
DIMENSION  A ( NR , NC) , B( NR , NC) 
C  EMA  A,B 

DO  100  J=1 , NC 
DO  100  1=1, NR 
AA  =  A ( I , J ) 

100  B( I , J)  =  AA 
RETURN 
END 

SUBROUTINE  EDPLV ( A , B , N) 
DIMENSION  A(N),B(N) 

C  EMA  A,B 

DO  100  1=1 , N 
100  B( I )  =  A ( I ) 

RETURN 

END 

C  SUBROUTINE  DOT( X , Y , FF , N ) 

C  DIMENSION  X(N) ,Y(N) 

C  FF  =  0.0 

C  DO  100  1=1, N 

C  100  FF  =  FF+X(I)*Y(I) 

C  RETURN 

C  END 

SUBROUTINE  SZERO(A.N) 
DIMENSION  A ( N ) 

DO  100  1=1, N 
100  A ( I )  «  0.0 
RETURN 
END 

SUBROUTINE  IZERO(L,N) 
DIMENSION  L(N ) 

DO  100  1=1, N 
100  L( I )  =  0 
RETURN 
END 

SUBROUTINE  TZER0( A , NR , NC ) 
DIMENSION  A ( NR , NC ) 

C  EMA  A 

DO  100  1=1, NR 
DO  100  J= 1 , NC 
100  A ( I  ,  J  )  =  0.0 
RETURN 


SI 
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END 

SUBROUTINE  EZERO(A.N) 

DIMENSION  A ( N  ) 

C  EM  A  A 

DO  100  1=1 , N 
100  A ( I )  =  0.0 
RETURN 
END 

SUBROUTINE  ELSTF( B , D , EN , XBAR , FAC , NC , NCC , S , I P , NS YM ) 
DIMENSION  B(2,NC) . D(4,4) ,EN(NC) ,S(16,NCC) 

EMA  B , EN , XBAR , FAC 

IF(IP.GT.2)  GO  TO  250 
DO  200  J-l ,NC 
B 1  *  B  (  I  ,  J  ) 

B2  «  B( 2 , J ) 

DB1  -  D ( 1 , 1 )*B1+D( 1 ,4)*B2 
DB2  =  D(2, 1)*B1+D(2,4)*B2 
DB4  -  D(4, 1)*B1+D(4,4)*B2 
C 

DBB1  -  D(1,2)*B2+D(1,4)*B1 
DBB2  =  D(2,2)*B2+D(2,4)*B1 
DBB4  «  D(4,2)*B2+D(4,4)*B1 
C 

DO  100  I-l.J 

S(I,J)  -  S(I,J)+(B(1,I)*DB1+B(2,I)*DB4)*FAC 
S ( I+NC , J+NC )  =  S(I+NC,J+NC)+(B(2,I)*DBB2+B(1,I)*DBB4)*FAC 
S(J,I)  =  S ( I ,  J  ) 

S ( J+NC , I+NC )  *  S(I+NC,J+NC) 

100  CONTINUE 
C 

DO  150  1=1 ,  NC 

S  (  I ,  J+NC )  =  S(I,J+NC)  +  (B(1,I)’!‘DBB1  +  B(2>I)*DBB4)*FAC 
S (J+NC , I )  =  S ( I , J+NC ) 

150  CONTINUE 
200  CONTINUE 
GO  TO  500 
C 

250  CONTINUE 

IF(IP.NE.3)  GO  TO  410 
C 

DO  400  J-l ,NC 
B 1  =  B( 1 , J) 

B2  =  B ( 2 , J  ) 

C 

DB1  =  D(1,1)*B1+D(1,4)*B2+D(1,3)*EN(J)/XBAR 
DB2  =  D(2, 1)*B1+D(2,4)*B2+D(2,3)*EN(J)/XBAR 
DB3  =  D  (  3  ,  1)*B1+D(3,4)*B2+D(3,3)*EN(J)/XBAR 
DB4  =  D(4, 1 )*B1+D(4,4)*B2+D(4 , 3)*EN(J)/XBAR 
C 

DBB 1  =  D(lf2)*B2+D(l,4)*Bl 
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DBB2  *  D(2,2)*B2+D(2,4)*B1  j 

DBB3  =  D(3,2)*B2+D(3,4)*B1  ( 

DBB4  =  D(4,2)*B2+D(4,4)*B1  ] 

C 

DO  300  1=1, J 

S(I,J)  =  S(I,J)+(B(1 ,I)*DB1+B(2,I)*DB4+DB3*EN(I)/XBAR)*FAC 
S ( I+NC , J+NC )  =  S(I  +  NC,J  +  NC)  +  (B(2,I)’i!DBB2  +  B(l,I)*DBB4)*FAC 
S(J,I)  =  S ( I , J ) 

S ( J+NC , I+NC )  =  S( I+NC , J+NC) 

300  CONTINUE 
C 

DO  350  1=1, NC  i 

S(  I ,  J+NC)  =  S(I,J+NC)+(B(1,I)*DBB1+B(2,I)*DBB4+DBB3*EN(I)/XBAR)*FAC 
S (J+NC , I )  =  S ( I , J+NC ) 

350  CONTINUE 
C 

400  CONTINUE 
GO  TO  500 
410  CONTINUE 

IF(IP.NE.4)  GO  TO  500 
DO  480  J=1 , NC 
B1  =  B( 1 , J ) 

C 

DB1  =  B1*D(1,1)+(D(1,2)+D(1,3))*EN(J)/XBAR 
DB2  =  B1*D(2,1)+(D(2,2)+D(2,3))*EN(J)/XBAR 
DB3  =  B1*D(3,1)+(D(3,2)+D(3,3))*EN(J)/XBAR 
C 

DO  420  I=1,J 

S(I,J)  =  S(I,J)+(B(1,I)*DB1+(DB2+DB3)*EN(I)/XBAR)*FAC 
S  (  J  ,  I )  =  S  (  I ,  J  ) 

420  CONTINUE 
C 

480  CONTINUE 
C 

500  CONTINUE 
RETURN 
END 

SUBROUTINE  ELSTN ( B , EN , XBAR , DU , STRN , NC , IP) 

DIMENSION  B(2,NC) ,EN(NC) ,DU( 1) ,STRN(4) 

EMA  B.EN.XBAR 

SI  =  0.0 

S  2  =  0.0 

53  =  0.0 

54  =  0.0 
C 

DO  10  L= 1 , NC 
SI  =  S 1+B( 1 ,L)*DU(L) 

S  2  =  S2+B(2,L)*DU(L+NC) 

IF(IP.GT.2)  GO  TO  3 
S3  =  0.0 
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GO  TO  5 

3  S3  =  S3+EN(L)*DU(L)/XBAR 
5  S4  =  S4+B( 2 , L)*DU(L)+B( 1 , L)*DU( L+NC) 

10  CONTINUE 

STRN ( 1  )  =  Si 

STRN ( 2 )  =  S2 

STRN ( 3 )  =  S3 

STRN ( 4 )  =  S4 

IF(IP.NE.4)  GO  TO  20 

STRN ( 2 )  =  STRN ( 3 ) 

STRN ( 4 )  =  0.0 
20  CONTINUE 

RETURN 

END 

SUBROUTINE  ELAST( B , G , C ) 

COMMON  /GENOP/  NF , NTCSF , ISFG , IP , NLNR , ICONST , NFG 
DIMENSION  C( 4 , 4 ) 

COMPUTE  ELASTIC  C  -  MATRIX 

IF(IP.GT.l)  GO  TO  20 

DNU  -  (3.*B-2.*G)/(6.*B+2.*G) 

A  =  2 . 0*G/ ( 1 . O-DNU ) 

D  =  A*DNU 
GO  TO  50 
20  CONTINUE 

A  =  B+4 . *G/3 . 

D  =  A-2 . *G 

50  CONTINUE 

DO  100  1=1,3 
C( I , 4)  =  0. 

C ( 4 , I )  =  0. 

DO  100  J=1 , 3 
IF(I.EQ.J)  C(I,J)  =  A 
IF(I.NE.J)  C(I,J)  =  D 
100  CONTINUE 
C  (  4 , 4 )  =  G 

IF(IP.GT.l)  GO  TO  120 
C( 1 ,3)  =  0.0 
C( 2 , 3 )  =  0.0 
C( 3 , 3 )  =  0.0 
C(3, 1)  =  0.0 
C( 3 , 2 )  =  0.0 
120  CONTINUE 
RETURN 
END 
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SUBROUTINE  RESLS ( B , S , EN , X BAR t WIWJ , NC , RS , I P ) 

DIMENSION  B ( 2 , 1 ) ,S( I ) , EN( 1 ) , RS (  1  ) 

EMA  B , EN , X BAR , WIWJ 

SOLID  PHASE  ELEMENT  LOAD  VECTOR  DUE  TO  EFFECTIVE  STRESS 

DO  100  1  =  1, NC 

RS ( I )  =  RS(I)-WIWJ*(B(1,I)*S(1)+B(2,I)*S(4)) 

IF( IP. EQ. 3)  RS ( I )  =  RS(I)-WIWJ*S(3)*EN(I)/XBAR 
IF(IP.EQ.4)  RS ( I )  =  RS(I)-2.*WIWJ*S(3)*EN(I)/XBAR 
RS( I+NC)  =  RS(I+NC)-WIWJ*(B(2,I)*S(2)+B(1,I)*S(4)) 

100  CONTINUE 
RETURN 
END 

SUBROUTINE  EXTRT( DU , NA , GU , N ) 

DIMENSION  DU(1),NA(1),GU(1) 

EMA  GU 

CALL  SZERO(DU.N) 

DO  100  1=1, N 
J  =  NA ( I ) 

IF(J.LE.O)  GO  TO  100 
DU( I )  =  GU( J ) 

100  CONTINUE 
RETURN 
END 

SUBROUTINE  SIGN(SS.N) 

DIMENSION  SS ( N ) 

CHANGE  THE  SIGN  OF  STRESSES  OR  STRAINS 

DO  100  1  =  1, N 
100  SS ( I )  =  -SS(I) 

RETURN 

END 

SUBROUTINE  WREAD( A , N , B , NF) 

DIMENSION  A(N) ,B(N) 

EMA  A ,  B 
DO  100  1=1, N 
IF(NF.EQ.O)  B ( I )  =  A ( I ) 

IF(NF.NE.O)  A ( I )  =  B ( I ) 

100  CONTINUE 
RETURN 
END 

SUBROUTINE  WR I D3 ( A , N , B , NF ) 

DIMENSION  A(N),B(N) 

EMA  A 

DO  100  1=1, N 
IF(NF.EQ.O)  B ( I )  =  A ( I ) 

IF(NF.NE.O)  A ( I )  =  B ( I ) 

100  CONTINUE 
RETURN 
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SUBROUTINE  TRANS ( NTP , A , N , NE , B ) 

DIMENSION  A(NE,N) ,B(NE) 

C  EMA  A 

REWIND  NTP 
DO  200  1=1, N 
READ  (NTP)  B 
DO  100  J=1 , NE 
100  A ( J , I )  =  B(J) 

200  CONTINUE 
REWIND  NTP 
RETURN 
END 

SUBROUTINE  TAUMX ( S , SMAX ) 

DIMENSION  S ( 4 ) 

SMAX  =  SQRT((0.5*(S(1)-S(2)))**2+S(4)*S(4)) 

RETURN 
END 

SUBROUTINE  VELBC( NLNR , NFIRST , IVEL , NUMVH , NUMVTP , NEQ , MBAND , ID , GK , 

*  GKO.RLV, VEL, ACC.KVEL, KEQH, VINT , TV , SVEL , TM , NUMNP , N VTYPE , DTXV ) 
COMMON  /INTCN/  AA(9),B1,B2,B3,BB(7) 

DIMENSION  ID ( NUMNP , 1),GK(NEQ,1),GK0(NEQ,1),RLV(1),VEL(1),ACC(1), 

*  KVEL(1),KEQH(1) ,VINT(1) ,TVC1) ,SVEL(NUMVTP, 1) 

EMA  ID, GK, GKO.RLV, VEL, ACC.KVEL, KEQH, VINT, TV, SVEL 

MODIFY  LOAD  VECTOR  AND  GLOBAL  STIFFNESS  MATRIX 

K  =  1 

DO  700  N-l.IVEL 
LHNO  =  KEQH(N) 

KK  =  KVEL(N) 

CALL  LIFNT(TM, NUMVTP, TV, SVEL( 1 , LHNO) , SVM , K ) 

SVM  -  SVM*VINT ( N ) 

DLTAU  -  (SVM-B2*VEL(KK)-B3*ACC(KK))/B1 
IF(NLNR.EQ.O. AND. NFIRST. NE.O)  GO  TO  450 
CALL  MGKRL(GK , RLV , KK, DLTAU, NEQ, MBAND, 0, IVEL, KVEL) 

GO  TO  700 

450  CALL  MGKRL(GKO, RLV, KK, DLTAU, NEQ, MBAND, 1 , IVEL, KVEL) 

700  CONTINUE 
RETURN 
END 

SUBROUTINE  LIFNT( TM , NUMVTP , TV , S V , S VM , K ) 

DIMENSION  TV ( 1 ) , S V (  1 ) 

C  EMA  TV  SV 

100  IF(TM.GE.TV(K) . AND . TM . LE . TV ( K+ 1 ) )  GO  TO  200 
IF(TM.GT.TV(K+1 ) )  K  =  K+l 
IF(TM.LT. TV(K))  K  =  K-l 
IF(K.LT. NUMVTP)  GO  TO  100 

WRITE(6,*)  "  ERROR  IN  VELOCITY  TIME  POINTS  " 

STOP 


200  CONTINUE 

S VM  =  SV(K)+(SV(K+1)-SV(K))*( TM-TV ( K ) ) / ( TV ( K+ 1 ) -TV ( K ) ) 

RETURN 

END 

SUBROUTINE  MGKRL(GK , RLV , N , DLTAU , N EQ , MB AND , N F , I V EL , K VEL ) 
DIMENSION  GK(NEQ.MBAND)  , RLV(NEQ)  ,KVEL(  1  ) 

C  EMA  GK  ,  RLV , KVEL 
DO  400  M*2 , MBAND 
K  «  N-M+I 

IF(K.LE.O)  GO  TO  100 

CALL  MDRLV(IVEL, KVEL, K, RLV(K) ,GK(K,M) , DLTAU) 

IF(NF.EQ.O)  GK(K,M)  =  0.0 
100  L  =  N+M-l 

IF(NEQ-L)  300,200,200 

200  CALL  MDRLV(IVEL, KVEL, L, RLV(L) ,GK(N,M) , DLTAU) 

300  IF(NF.EQ.O)  GK(N,M)  =  0.0 
400  CONTINUE 

IF(NF.EQ.O)  GK(N , 1 )  =  1.0 

RLV(N)  =  DLTAU 

RETURN 

END 

SUBROUTINE  MDRLV( I VEL , KVEL , K , R , G , D) 

DIMENSION  KVEL(l) 

C  EMA  KVEL,R,G 
NCK  -  0 

DO  100  1*1 , I VEL 
100  IF(KVEL(I) .EQ.K)  NCK  *  1 
IF(NCK.EQ.O)  R  a  R-G*D 
RETURN 
END 

SUBROUTINE  MSKEW( E , NDOF , NC , NCC , I , J , K , IROT , C , S ) 

DIMENSION  E(NDOF, 1 ) 

IF( IROT . EQ . 2 )  GO  TO  150 
C 

DO  100  L»1 , NCC 
ELI  -  E(  L  ,  I ) 

ELINC  «  E( L , I+NC ) 

ELJ  -  E(L,J) 

ELJNC  -  E(L, J+NC) 

E( L , I  )  -  ELI*C+ELINC*S 

E( L , I+NC )  a  ELI^C-SJ+ELINC^C 

E(L,J)  =  ELJ*C+ELJNC*S 

E(L,J+NC)  *  ELJ*(-S)+ELJNC*C 

IF(K.EQ.O)  GO  TO  100 

ELK  =  E(L,K) 

ELKNC  =  E(L,K+NC) 

E(L,K)  =  ELK*C+ELKNC*S 
E(  L ,  K  +  NC)  =  ELK*(-S)  +  ELKNC;!tC 
100  CONTINUE 
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IF( IROT.EQ. 1 )  RETURN 


150  CONTINUE 


m 


tV$,| 

1 


‘ksi 


"M 

kk 


$ 

is 


$ 

?: 

&S 


i 

-vfii 

$S 

:%k' 

MS* 


‘4h1 

,w, 

■v,v 


DO  200  L-l.NCC 
EIL  =  E ( I , L ) 

EINCL  =  E(I+NC,L) 

EJL  =  E(J,L) 

EJNCL  *  E( J+NC , L) 

E( I , L)  =  EIL*C+EINCL*S 
E( I+NC , L )  *  EIL*(-S)+EINCL*C 
E(J,L)  -  EJL*C+EJNCL*S 
E( J+NC , L)  =  EJL*(-S)+EJNCL*C 
IF(K.EQ.O)  GO  TO  200 
EKL  =  E(K,L) 

EKNCL  =  E( K+NC , L) 

E( K , L)  =  EKL*C+EKNCL*S 

E( K+NC , L )  =  EKL*(-S)+EKNCL*C 

CONTINUE 

RETURN 

END 

SUBROUTINE  DUPVX(A.B) 

DIMENSION  A  ( 4 ) , B( 4  ) 

EMA  B 

DO  100  1-1,4 
A  ( I )  =  B( I ) 

RETURN 

END 

SUBROUTINE  MTPKO( STRS , STRN , BK , G) 

COMMON  /GENOP/  NF , NTCSF , ISFG , IP , NLNR , ICONST , NFG 
DIMENSION  STRS ( 4 ) , STRN ( 4 ) 

EMA  STRS 

IF(IP.GT.l)  GO  TO  20 

DNU  =  (3.*BK-2.*G)/(6.*BK+2.*G) 

A  =  2 . *G/ ( 1 . -DNU ) 

B  =  A*DNU 
GO  TO  50 
CONTINUE 
A  =  BK+4 . *G/3 . 

B  =  A-2 .  *G 
CONTINUE 

STRS ( 1 )  =  STRS( 1)+A*STRN( 1 )+B*(STRN(2)+STRN(3)) 

STRS ( 2 )  =  STRS(2)+A*STRN( 2)+B*(STRN( 1 )+STRN(3) ) 

IF(IP.EQ.l)  STRS ( 3 )  =  0.0 

IF(IP.NE.l)  STRS ( 3 )  =  STRS( 3 )+A*STRN ( 3 ) +B* ( STRN ( 1 ) +STRN ( 2 ) ) 
STRS ( 4 )  =  STRS(4)+G*STRN(4) 

RETURN 

END 


'  •  u*;*  *  '■ 
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C  FTN7X.L 
C  $  EM A  /MDCPL/ 

SUBROUTINE  MTPK  1  ( PS , DSTRN , DP , N FI RST , NFSTF , NMAT , BK E , GE , PROP ) 
COMMON/MDCPL/  BLN ( 1 1 , 2 , 5 ) , BUN ( 1 1 , 2 , 5 ) , TYF( 1 1 , 3 , 5 ) , NLP( 5 ) , 

*  N  U  P  (  5  )  ,  N  T  P  (  5  )  ,  N  C  0  (  5  ) 

DIMENSION  DSTRN(4) ,DP(4,4) ,PS( 1) ,PROP( 1) 

C  EMA  PS, PROP 
GP=PROP( 8 ) 

A=*PROP( 9 ) 

B=PROP( 10) 

I F ( NFIRST . NE . 0 )  GO  TO  300 


NFIRST  =  0 


ASSUME  ELASTIC 


PMAX=(PS(l)+PS(2)+PS(3))/3. 

YPMAX=0 . 0 
PS ( 7 ) =PMAX 
PS( 8)=YPMAX 
BK=BKE 

g=ge 

GO  TO  800 

NFIRST  >  0 

CONTINUE 

N=NMAT 

CALL  DCOUPCPS(l) .DSTRN, BLN( 1 , 1 , N ) , NLP( N ) , BUN ( 1 , 1 ,N) ,NUP(N) , 

*  TYF( 1 , 1 ,N) ,NTP(N) , PS ( 7 ) ,PS(8) ,A,B,GE,GP,BK,G) 

CALCULATE  STRESS-STRAIN  MATRIX 
CONTINUE 

IF(NFSTF.EQ.O)  RETURN 
CALL  ELAST(BK,G,DP) 

RETURN 

END 

SUBROUTINE  DCOUP( STRS , DSTRN , BLN , NLP , BUN , NUP , TYF , NTP , PM AX , 

*  YPMAX,A,B,GE,GP,BK,G) 

DIMENSION  STRS(4) ,DSTRN(4) ,BLN( 11 , 2 ) , BUN ( 1 1 , 2 ) , TYF( 1 1 , 3 )  , 

*  DDSRN(4) , DDVSR(4) , DST( 4 ) , DVSR( 4 ) , DSIC( 4 ) ,DVSN(4) 
EMA  STRS , BLN, NLP, BUN, NUP, TYF, NTP, PM AX, YPMAX 


INPUT 


STRS ( 4 ) : 
DSTRN ( 4 ) :  - 
BLN( NLP , 2 ) 
BUN ( NUP , 2 ) 


(OLD  STRESS) 

(CURRENT  STRAIN  INCREMENT) 
P-BLK  CURVE 
P-BUK  CURVE 
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TYF(NTP,3)  : 
PM  AX  : 

YPMAX  : 

GE: 

GP: 

A : 


B: 


OUTPUT  : 

STRS ( 4 ) : 

PMAX : 

YPMAX: 

BK: 

G: 

SET  THE  NUMBER  OF  STRAIN 

NDIV-10 
DO  10  1-1,4 

DDSRN(I)=DSTRN(I)/NDIV 
0  CONTINUE 


P-TY-TF  CURVE 
PREVIOUS  MAX.  MEAN  PRESSURE 
PREVIOUS  MAX.  Y' 

ELASTIC  SHEAR  MODULUS 
PLASTIC  SHERA  MODULUS 
RATIO  OF  INITIAL  STRENGTH 
00  YIELD  STRENGTH 
ENVELOPE 

FRACTION  OF  PLASTIC  SHEAR  MODULUS 
AT  FAILURE 


(UPDATE  STRESS) 
UPDATE  PMAX 
UPDATE  Y 1  MAX 
UPDATE  BULK  MODULUS 
UPDATE  SHEAR  MODULUS 

SUBINCREMENTS  INTO  10 


DO  1000  11=1, NDIV 

DECOMPOSE  INTO  DEVIATORIC  AND  VOLUMETRIC  PARTS 
CALL  DECOM(STRS,DDSRN,PP,PDVSR,DV,DVSN) 

COMPUTE  BULK  MODULUS(BK) 

IF(PP.GE.PMAX)  CALL  MDLUS ( BLN ( 1 , 1 ) , BLN ( 1 , 2 ) , NLP  ,  PP , BK ) 
IF(PP.LT.PMAX)  CALL  MDLUS ( BUN ( 1 , 1 ) , BUN ( 1 , 2 ) , NUP , PP , BK ) 

UPDATE  MEAN  PRESSURE  AND  PMAX 

P«PP+BK*DV 

IF(P.GT.PMAX)  PM A  X  =  P 
COMPUTE  SHEAR  MODULUS(G) 

IF( YPMAX. GE. A)  GO  TO  200 
Y’MAX  <  A  , *  IN  ELASTIC  STATE 
G-CE 

GO  TO  800 
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Y ' M A X  >=  A  ,  IN  PLASTIC  STATE 
CONTINUE 


CALCULATEE  Y'  BASED  ON  OLD  STRESS  STATE 

CALL  CALYF( TYF( 1 , 1 ) , TYF( 1 , 2) ,TYF( 1 , 3 ) , PP , TAU Y , TAUF , NTP ) 
CALL  TAUOC(PDVSR.TAU) 

CALL  C ALYP( TAU, TAU Y, TAUF , YPMAX ,YP) 

I F ( YP.GE.YPMAX)  CO  TO  400 

Y’  <  Y ' MAX  ,  UNLOADING 
C=GE 

GO  TO  800 

Y'  >=  Y ' MAX ,  LOADING 
CONTINUE 

FIND  TRIAL  SHEAR  MODULUS 
CALL  CALGT(YP,A,B,GE,GP,GT) 

CALCULATE  OCTAHEDRAL  SHEAR  STRESS  BASED  ON  G  TRIAL 

CALL  DEVST(DVSN,GT,DSIC) 

CALL  ADDVT(PDVSR,DSIC,DST) 

CALL  TAUOC(DST.TAU) 

CALCULATE  Y '  CURRENT 

CALL  CALYF(TYF( 1 , 1) , TYF ( 1 , 2 ) , TYF( 1 , 3 ) , P , TAUY , TAUF , NTP ) 
CALL  CALYP (TAU, TAUY, TAUF, YPMAX, YPCUR) 

CHECK  WHETHER  IT  IS  LOADING  OR  NOT 


IF(YPCUR.GE.YPMAX)GOTO  600 
Y ’  <  Y  '  MAX  ,  UNLOADING 
G  =  GE 

GOTO  800 


CO  TO  900 


C 

C 

C 

800 


C 


C 

C 

C 

900 


950 


n 

v> 

c 

1000 


c 


c 


100 


c 

c 

100 


1 


UPDATE  SHEAR  STRESS  AN’D  Y'MAX 
CONTINUE 

CALL  DEVST( DVSN ,G , DSIC) 

CALL  ADDVT(PDVSR,DSIC,DVSR) 

CALL  TAUOC(DVSR.TAU) 

CALL  CALYF ( T Y F( 1 f 1 ) , TY F( 1 , 2 ) , TY F( 1 , 3 ) , P , TAUY , TAUF , NTP ) 
CALL  CALYP( TAU, TAUY, TAUF, YPMAX, YPCUR) 
IF(YPCUR.GT.YPMAX)  YPMAX=YPCUR 

UPDATE  STRESSES 

CONTINUE 

DO  950  1=1,3 

STRS(I)=P+DVSR(I) 

CONTINUE 

STRS ( 4 ) =DVSR ( 4 ) 


CONTINUE 

RETURN 

END 

SUBROUTINE  DECOM( STRS , DSTRN , P , DVSR , DV , DVSN ) 
DIMENSION  STRS(4) ,DSTRN(4) ,DVSR(4) ,DVSN(4) 
EMA  STRS 

P=(STRS( l)+STRS(2)+STRS(3))/3. 

DV  =  DSTRN( 1)+DSTRN(2)+DSTRN(3) 

DO  100  1=1,3 

DVSR(I)=STRS(I)-P 

DVSN(I)=DSTRN(I)-DV/3. 

CONTINUE 

DVS  R ( 4 ) =STRS ( 4 ) 

DVSN(4)=DSTRN(4) 

RETURN 

END 

SUBROUTINE  M DLUS ( P , B , N B P , PC , BK ) 

DIMENSION  P ( 1 ) , B (  1  ) 

EMA  P.B.NBP 
K  =  1 

TF(PC.GE.P(K) .AND.PC.LE.P(K+l  ) )  GO  TO  200 
I F ( PC . GT . P ( K  +  1 )  )  K  =  K  +  1 
IF( PC. LT. P( K ) )  K-K-l 
TF(K.LT.NBP)  GO  TO  100 
W  R  I T  E  (  6  ,  l  ) 

FORMAT ( 2  2  H  K  IS  GREATER  THAN  NBP) 

STOP 
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BK  =  B( K  ) 

RETURN 

END 

SUBROUTINE  CALGT( YP , A , B , GE , GP , GT) 

G A=  .0 . 5* ( GE+GP) 

GD=  0 . 5* ( GE-GP ) 

IF(YP.LT.A)  GT=GE 

I F(YP.GE. A. AND.YP.LT. 1 .0)  GT-GA-GD*(2 ,*YP-( 1 .+A) )/( 1 .-A) 

IF(YP.GE.l .0. AND.YP.LT. 2.0)  GT=GP 

I F( YP . GE . 2 . 0 )  GT=B*GP 

RETURN 

END 

SUBROUTINE  CALYP ( TAU , TAUY , TAUF , YPMAX , YP ) 

EMA  YPMAX 

IF( YPMAX . LT . 1 . 0 )  YP=TAU/TAUY 
IF( YPMAX. GE. 1 .0. AND. YPMAX.LT. 2.0) 

YP  =  1 .0+(TAU-TAUY)/(TAUF-TAUY) 

I F ( YPMAX . GE . 2 . 0 )  YP=2 . *TAU/TAUF 

RETURN 

END 

SUBROUTINE  TAUOC(S.TOC) 

DIMENSION  S ( 4 ) 

S1=S(1) 

S2=S( 2 ) 

S3=S ( 3 ) 

S4  =  S ( 4 ) 

T0C=(SQRT(S1*S1+S2*S2  +  S3*S3  +  2.*S4*S4))/SQRT(3.  ) 

RETURN 

END 

SUBROUTINE  CALYF( PA , TY , TF , PC , TAUY , TAUF , NTP ) 

DIMENSION  PA(1),TY(1),TF(1) 

EMA  PA ,TY ,TF , NTP 
K=  1 

IF(PC.GE.P(K) .AND.PC.LE.P(K+1))  GO  TO  200 

I F( PC . GT . P( K+ I ) )  K=K+1 

IF(PC.LT.P(K))  K-K-l 

IF(K.LT.NTP)  GO  TO  100 

WRITE(6, 1) 

FORMAT ( 22H  K  IS  GREATER  THEN  NTP) 

STOP 

CONTINUE 

DP=P(K+1)-P(K) 

DPC  =  PC-P( K  ) 

TAU Y=  TY(K)+(TY(K+1 )-TY(K) )*DPC/DP 
T  AU  F=  TF(K)  +  (TF(K  +  1)-TF(K))*DPC/DP 
RETURN 
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C 

SUBROUTINE  DEVST ( DE , G , DS ) 

DIMENSION  DE ( 4 ) , DS ( 4 ) 

DO  100  1=1,3 
DS( I )=  2 . * G * D E (  I) 

100  CONTINUE 

DS(4)=C*D£(4) 

RETURN 

END 

C 

SUBROUTINE  ADDVT( A , B,C) 

DIMENSION  A(4) , B(4) ,C(4) 

DO  100  1*1,4 
C(I)=  A ( I  )  +  B( I ) 

100  CONTINUE 
RETURN 
END 
C 

C  $EMA  /MDCPL/ 

SUBROUTINE  MTPK4( PS , DSTRN , DP , NFI RST , NFSTF , NMAT , PROP ) 
COMMON /MDCPL/  CLM(11,2,5) , CUM( 1 I , 2 , 5 ) , TYF( 1 l , 3 , 5 ) , NLP( 5 ) , 
*  NUP(5) ,NTP(5) ,NC0(5) 

DIMENSION  DSTRN (4 ),DP(4,4),PS(1), PRQP( 1 ) 

C  EMA  PS, PROP 
N=NMAT 

P0SNR=PR0P( 8) 

EQN0=PR0P( 9  ) 

C=PR0P( 10) 

D-PROP(ll) 

S VMLL=PR0P( 12) 

IF(NFIRST.NE.0)G0  TO  300 


NFIRST=0 ,  ASSUME  LOADING 


P S ( 7 )=PS( 2  ) 

PS7  *  PS ( 7  ) 

CALL  MDLUS ( CLM( 1 , 1 , N ) , CLM( 1 , 2 , N) , NLP( N ) , PS7,CSM) 


\ 


BK=( 1 .+P0SNR)*CSM/(3.*( 1 . -POSNR) ) 
G=( i .-2.*POSNR)*CSM/(2.*( 1 .-POSNR) ) 


GOTO  800 


NFI RST  >  0 


300  CONTINUE 
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CALL  UNIAX(PS(1) .DSTRN, CLM ( 1 , l , N ) , N LP ( M ) , CUM ( 1 
‘  PS ( 7 ) , POSNR , EQNO.C, D.SVMLL, BK ,G) 


1 ,N) , NUP( N ) 


CALCULATE  STRESS-STRAIN  MATRIX 


00  CONTINUE 

IF(NFSTF.EQ.O)  RETURN 
CALL  ELAST( BK ,G , DP) 

RETURN 

END 

SUBROUTINE  UNI AX( STRS , DSTRN , CLM , NLP , CUM , NUP , S2MAX , POSNR  , 
*  EQNO.C, D.SVMLL, BK,G) 

DIMENSION  STRS (4) ,DSTRN(4) ,CLM(I1 ,2) ,CUM(11 ,2) 

EMA  STRS, CLM, NLP, CUM, NUP, S2MAX 


INPUT: 

STRS( 4)  : 
DSTRN ( 4 )  : 
CLM ( NLP , 2  )  : 
CUM( NUP , 2 )  : 

FOR  EQN0=3 . 
C, D.SVMLL: 

S2MAX : 
POSNR: 


(OLD  STRESS) 

(CURRENT  STRAIN  INCREMENT) 

SV-ML  CURVE 

SV-MU  CURVE  IF  EQNO-1. 

S VMAX-MU  CURVE  IF  EQN0=2. 

CONSTANTS  FOR  EQUATION  OF  UNLOADING 
CONSTRAINED  MODULUS 
PREVIOUS  MAXIMUM  SV 
POISSONS  RATIO  (ASSUME  CONSTANT) 


OUTPUT* 

STRS ( 4 ) ; 
S2MAX : 
BK: 

G: 


(UPDATE. STRESS) 
UPDATE  SV  MAX 
UPDATE  BULK  MODULUS 
UPDATE  SHEAR  MODULUS 


SET  THE  NUMBER  OF  STRAIN  SUBINCREMENT  INTO  10 


c 

DO  1000  II-l.NDIV 
C 

IF(S2.GE.S2MAX)  GO  TO  400 
C 

C  UNLOADING,  0.0  <  S2  <  S2  MAX 
C 

IF(S2.LE.0.0)  GO  TO  200 
C 

IEQNO-INT(EQNO) 

G0T0(10, 20,30) .IEQNO 
WRITE( 6 , 1 )  IEQNO 

1  FORMAT ( 24H  UNLOADING  EQUATION  NO  =,I5,13H  IS  NOT  VALID) 

STOP 

10  CONTINUE 

C 

C  UNLOADING  CONSTRAINED  MODULUS  BASED  ON  CURRENT 

C  VERTICAL  STRESS 

C 

CALL  MDLUS ( CUM( 1 , 1 ) , CUM( 1 ,2) ,NUP,S2,CSM) 

GO  TO  600 
20  CONTINUE 

C 

C  UNLOADING  CONSTRAINED  MODULUS  BASED  ON  PREVIOUS 

C  MAXIMUM  VERTICAL  STRESS 

C 

CALL  MDLUS ( CUM(1,1),CUM(1,2),NUP,S2,CSM) 

GO  TO  600 
30  CONTINUE 

C 

C  UNLOADING  CONSTRAINED  MODULUS  BASED  ON 

C  EMPIRICAL  EQUAITON  (BY  SCOTT  BLOUIN) 

C 

IF(S2MAX.GE.SVMLL)  CSM=C*(S2MAX**D) 

IF(S2MAX.LT.SVMLL)  CSM=C*(SVMLL**D) 

GO  TO  600 
200  CONTINUE 

C 

C  UNLOADING  AND  LIQUEFIED,  S2  <  =  0.0  <  S2  MAX 

C 
C 

CSM=0 . 0 
S2=0 . 0 
DS  2  =  0 . 0 
STRS ( 1 )=0.0 
STRS ( 2  )  =0 . 0 
STRS ( 3 ) =0 . 0 
GO  TO  1000 
400  CONTINUE 
C 
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LOADING,  S 2  >=  S2  MAX. 


CALL  MDLUS(CLM( I, 1) ,CLM( 1 ,2) ,NLP,S2,CSM) 
GOTO  600 

UPDATE  VERTICAL  STRESS  AND  S2  MAX. 

00  CONTINUE 

DDS2=.CSM*DDE2 

DS2=DS2+DDS2 

S2=S2+DDS2 

IF(S2 .GT.S2MAX)  S2MAX=S2 


000  CONTINUE 

.  UPDATE  ALL  STRESS 

STRS( 1)=STRS( l)+DS2*P0SNR/( 1 .-POSNR) 

STRS ( 2 ) =S2 
STRS( 3 ) =STRS ( 1 ) 

STRS ( 4 ) *0 . 0 

UPDATE  BULK  AND  SHEAR  MODULI 

BK=(1.+P0SNR)*CSM/(3.*(1. -POSNR)) 

G=( 1 . -2 . * POSNR )*CSM/(2.*(I. -POSNR ) ) 

RETURN 

END 

$EMA  /TENCT/ 

SUBROUTINE  CUTEN ( NMPK , D , ST , IP , STIFAC , SHEFAC , PMN , FG ) 

COMPUTE  PRINCIPAL  STRESS  AND  ITS  ANGLE 

CHECK  TENSION,  IF  THERE  IS  TENSION,  CUTOFF  AND  MODIFY  D-MATRIX 

COMMON  /TENCT/  T(4 , 4) ,H(4 , 4) 

DIMENSION  D(  4 , 4 ) , ST( 4  j ,S(4) 

C  EMA  ST , FG 

CALL  DUPVX ( S , ST ) 

IF(NMPK.EQ.l)  CALL  SIGN(S,4) 

C  COMPUTE  PRINCIPAL  STRESSES  AND  ITS  ANGLE 

PI  =  S(l)+S(2) 

P2  =  S( 1 ) -S ( 2 ) 

TF(P2.EQ.0.0)  GO  TO  20 
ANGX  =  0 . 5  *  A  T  A  N ( 2 . *  S ( 4 ) / P  2 ) 

CO  TO  40 

20  ANGX  =  0.7854 

40  PX  *  0.5*PL+0.5*P2*C0S(2.*ANCX)+S(4)*SIN(2.*ANCX) 

ANGY  =  ANGX +1.5708 


450 


470 


PX  =  PMN 
PY  =  PMN 
PZ  =  PMN 
STRESSES 


FROM  PRINCIPAL  TO  X-Y  COORDINATE 


PY  =  0.5*P1+0.5*P2*C0S(2.*ANGY)+S(4)*SIN(2.*ANCY) 

PZ  =  S ( 3  ) 

CHECK  TENSION,  IF  THERE  IS  TENSION,  CUTOFF 
IF(PX. LT.PMN.AND.PY.LT. PMN)  GO  TO  470 
I F( FG.NE.-1000. )  GO  TO  60 
IF(PY.GT.PX)  GO  TO  50 
FG  =  ANGX 
GO  TO  60 
FG  -  ANGY 
CONTINUE 
IF(PX.GT.PMN) 

IF(PY.GT.PMN) 

IF(PZ.GT.PMN) 

BACK-TRANSFER 
C  =  COS ( ANGX ) 

S  =  SIN(ANGX) 

C2  =  C*C 
S2  =  S*S 
CS  *  C*S 

=  C2*PX+S2*PY 
=  S2*PX+C2*PY 
=  PZ 

-  CS* ( PX-PY ) 

IF(IP.NE.4)  GO  TO 
S ( 3 )  =  S( 2) 

S( 4 )  =  0.0 
CONTINUE 

IF(NMPK.EQ.l)  CALL  SIGN(S,4) 

CALL  VXDUP(ST.S) 

TRANSFER  D-MATRIX  IN  PRINCIPAL  OR  CRACKED  COORDINATE  TO  X-Y  COORDINA 
IF( FG . EQ . -1000 . )  RETURN 
D(  1 , 1 )  =  D(1 , 1)/STIFAC 
D(  1 , 2  )  =  D( 1 , 2)/STIFAC 
D(  1 , 3 )  -  D( 1 , 3)/STIFAC 
D( 4 , 4 )  =  D( 4 , 4 ) /SHEFAC 
C  =  COS(FG) 

S  =  SIN(FG) 


S(l) 

S(2) 

S(3) 

S(4) 


450 


480 


C2 

=  C*C 

S2 

«  S< 

>S 

CS 

=  c< 

>S 

DO 

48C 

1  = 

=  1,4 

DO 

480 

J  = 

=  1,4 

D  ( 

J 

,D 

= 

D(I,J) 

T  ( 

1 

,D 

a 

C2 

T  ( 

1 

,2) 

= 

S  2 

T  ( 

1 

,3) 

= 

0.0 

T  ( 

l 

,4) 

= 

CS 

T  ( 

2 

,  1) 

= 

S  2 

T  ( 

2 

,2) 

= 

C2 

T  ( 

2 

,3) 

0.0 
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T( 2 , 4  )  =  -CS 
T( 3 , 1  )  =  0.0 
T(  3 , 2 )  =  0.0 
T(3, 3)  =  1.0 
T(  3 , 4  )  =  0.0 
T( 4 , 1 )  =  -2 . *CS 
T( 4 , 2 )  =  2 . *CS 
T( 4 , 3 )  =  0.0 
T( 4 , 4 )  =  C2-S2 
DO  500  J  =  1 , 4 

T1  =  D(1,1)*T(1,J)  +  D(1,2)*T(2,J)  +  D(1,3)j!!T(3,J)+D(1,4)!!'T(4,J) 
T2=D(2, 1)*T(1 , J)+D(2,2)*T(2, J )+D( 2 , 3 ) *T( 3 , J )+D( 2 , 4 ) *T( 4 , J ) 
T3=D(3, 1)*T(1 , J)+D(3,2)*T(2, J ) +  D( 3 , 3 ) *T( 3 , J )  +  D( 3 , 4 )*T( 4 , J  ) 
T4=D(4, 1)*T(1 , J)+D(4, 2)*T(2f J ) +D( 4 , 3 ) *T( 3 , J ) +D( 4 , 4 ) *T( 4 , J ) 
DO  500  I-J,4 

H(  I ,  J )  =  T(lfI)*Tl+T(2,I)*T2+T(3,I)*T3+T(4,  I)*T4 
500  H( J , I )  =  H(  I ,  J) 

DO  600  1=1,4 
DO  600  J= 1 , 4 
600  D( I , J )  =  H ( I , J ) 


RETURN 
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C  FTN7X.L 

SUBROUTINE  MTPK 5 ( PS , DSTRN , DP . NFI RST , NFSTF , BKE , GE , PROP , I P ) 
COMMON /MATPR / EMP ( 7 ) , A2,B2 ,C2 

DIMENSION  DSTRN ( 4 ) ,DP(4,4) , PS ( 1 ) , PROP ( 1 ) , ICH( 4) ,C(4 , 4 ) , 

*  EPS ( 4 ) , DELEPS(4) , SIG(4) 

C  EMA ' PS , PROP 

DATA  ICH/1,2,4,3/ 


STRESS  AND  STRAIN  CONDITIONS: 

PLANE  STRESS:  IP-1, 
PLAIN  STRAIN:  IP-2, 
AXIAL  SYMMETRY:  IP-3, 
SPHERICAL  SYMMETRY:  IP-4, 


ITYP2D=2 
ITYP2D* 1 
ITYP2D=0 
ITYP2D=0 


IF(IP.EQ.l)  ITYP2D-2 
IF(IP.EQ.2)  ITYP2D* 1 
IF(IP.EQ.3)  ITYP2D=0 
IF(IP.EQ.4)  ITYP2D=0 


CALCULATE  V  AND  E  FROM  BK  AND  G 


V=(3.*BKE-2.*GE)/(6.*BKE+2.*GE) 
E-  3.*BKE*(1.-2.*V) 

EMP( 1 ) «E 
EMP( 2)=V 


ASSIGN  N.ALPA.B.KAPA.AND  K 


DO  20  1*3,7 
11=1+5 

EMP(I)-PROP(II) 
0  CONTINUE 


CHANGE  STRESSSES,  STRAINS,  AND  ELASTIC-PLASTIC  FLAG 
FROM  TPDAP  TO  ARA2D 


DO  100  1-1,4 
11=  ICH(I) 

SIG(T)-  -PS(IT) 

DELEPS(I)=  -DSTRN (II) 

100  CONTINUE 
C 

IF(NFIRST. EQ.O)  PS(7)  =  1.0 
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I  PEL*  I NT( PS  7 ) 
CALL  SZERO( EPS  ,  4  ) 
CALL  ARA2D  MODEL 


CALL  ARA2D(IPEL,EPS,DELEPS,SIG,ITYP2D,C) 

CHANGE  STRESS-STRAIN  MATRIX  FROM  ARA2D  TO  TPDAP 

DO  200  1=1,4 
11=  ICH(I) 

DO  200  J-1,4 
JJ=  ICH(J) 

DP(I,J)=C(II,JJ) 

CONTINUE 


CHANGE  STRESSES  AND  ELASTO-PLASTIC  FLAG  FROM  ARA2D  TO  TPDAP 


DO  300  1=1,4 
II»  ICH(I) 

PS(I)=  -SIG(II) 

CONTINUE 

PS(7)=FL0AT(IPEL) 

RETURN 

END 

SUBROUTINE  ARA2D  ( IPEL , EPS , DELEPS , SIG , ITYP2D , C ) 


SIG  STRESSES  AT  THE  END  OF  THE  PREVIOUS  UPDATE 
EPS  STRAINS  AT  THE  END  OF  THE  PREVIOUS  UPDATE 
RATIO  PART  OF  STRAIN  INCREMENT  TAKEN  ELASTICALLY 
DELEPS  INCREMENT  IN  STRAINS 

DELSIG  INCREMENT  IN  STRESSES,  ASSUMING  ELASTIC  BEHAVIOR 


PROP(l)  YOUNG  S  MODULUS 
PROP ( 2 )  POISSON  S  RATIO 
PROP( 3 )  HI  (N) 

PROP( 4 )  H2  (ALPHA) 

PROP( 5 )  H 3  (BETA) 

PROP( 6 )  H4  (KAPA) 

PROP( 7 )  H 5  (  K  ) 


T  PEL 


1,  MATERIAL  ELASTIC, 


ooooo  o  o  o  o  o  onn  o  o  o  doodoo 


2,  MATERIAL  PLASTIC 


COMMON  / M A T P R /  PROP ( 7 ) , A2 , B2 , C2 

DIMENSION  S IG ( 4 ) ,EPS(4) , C( 4 , 4  ) 

DIMENSION  TAU(4) ,DELSIG(4) , DELEPS(4) ,DEPS(4) 

CALL  CSIGN(SIG) 

CALL  CSIGN ( EPS ) 

CALL  CSIGN(DELEPS) 

IF(PR0P(3) .NE.0.0)  CALL  CUTNX(SIG) 

YM=PROP( 1 ) 

PV-PROP ( 2 ) 

G  -YM/(l.+PV)/2. 

BM=YM/(l.-2.*PV)/3. 

A2-BM+4 . *G/3 . 

B2=BM-2 . *G/3 . 

C2=G 

1.  UPDATE  STRAINS 
DO  120  1-1,4 

120  EPS ( I )  -  EPS ( I )  +  DELEPS(I) 


2.  CALCULATE  THE  STRESS  INCREMENT, 
ASSUMING  ELASTIC  BEHAVIOR 


DELSIG(l) 
DELSIG( 2) 
DELSIG ( 3 ) 
DELSIG ( 4 ) 
IF  ( ITYP2D, 
DELSIG(l)  = 
DELSIG( 2 )  = 
DELSIG( 4 )  = 


A2*DELEPS(1)  +  B2*DELEPS(2) 
B2*DELEPS ( 1 )  +  A2*DELEPS(2) 
C2*DELEPS ( 3 ) 

B2  *  (DELEPS(1)+DELEPS(2)) 
EQ.l)  GO  TO  150 
DELSIG ( 1 )  +  B2*DELEPS(4) 
DELSIG( 2 )  +  B2*DELEPS(4) 
DELSIG ( 4  )  +  A2*DELEPS(4) 


3.  CALCULATE  TOTAL  STRESSES, 

ASSUMING  ELASTIC  BEHAVIOR 

150  CONTINUE 

DO  160  1=1,4 

160  TAU(I)  =  SIC(I)  +  DELS IG ( I ) 

4.  CHECK  WHETHER  *TAU*  STATE  OF  STRESS  FALLS 


Yf> 


V7\ri V  ? !’ v,»V*  > »' 
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OUTSIDE  THE  LOADING  SURFACE 


I F( I  PEL. EQ . 2 )  GO  TO  165 
GALL  FORMF(TAU, FT) 

IF(IPEL.EQ.l.AND.FT.LE.O.O)  GO  TO  170 
IF(IPEL.EQ. 1.AND.FT.GT.0.0)  GO  TO  300 
165  RATIO  -  0.0 
GO  TO  320 

STATE  OF  STRESS  WITHIN  LOADING  SURFACE  -  ELASTIC  BEHAVIOR 

170  IPEL-1 

DO  180  1-1,4 
180  SIG(I)  =  TAU(I) 

GO  TO  400 


STATE  OF  STRESS  OUTSIDE  LOADING  SURFACE 


DETERMINE  PART  OF  STRAIN  TAKEN  ELASTICLY 
300  IPEL=2 

CALL  SHOOT (SIG,TAU, RATIO) 

320  CONTINUE 

DO  350  1-1,4 

350  TAU  (I)  =  SIG(I)  +  RATIO*DELSIG(I) 

*TAU*  NOW  CONTAINS  (PREVIOUS  STRESSES  + 
STRESSES  DUE  TO  ELASTIC  STRAIN  INCREMENTS) 


5.  CALCULATE  PLASTIC  STRESSES 

DETERMINE  INCREMENT  INTERVAL 

370  CONTINUE 
M  =  10 

XM  =  (1.-RATI0)/FL0AT(M) 


DO  380  1-1,4 

380  DEPS (  r  )  =  XM*DELEPS( I  ) 

IF(ITYP2D.EQ.l)  DEPS(4)  =  0.0 


PLASTIC  BEHAVIOR 


CALCULATION  OF  ELASTOPLASTTC  STRESSES 


(START) 


DO  600  I M  =  1  ,  M 


CALL  DMTRX  (TAU,DEPS,C) 

DO  560  1=1,4 
DO  560  J=1 ,4 

560  TAU(I)  =  TAU(I)  +  C(I,J)  *  DEPS(J) 

CORRECTION 
CALL  DRFTA(TAU) 

600  CONTINUE 

.  CALCULATION  OF  ELASTOPLASTIC  STRESSES 

DO  390  1=1,4 
390  SIG(I)  =  TAU(I) 

CHECK  TENSILE  STRESSES 
400  CONTINUE 

IF(PR0P(3) .NE.O.O)  CALL  CUTNX(SIG) 

CALL  CSIGN(SIG) 

CALL  CSIGN ( EPS  ) 

7.  FORM  THE  MATERIAL  LAW 

IF  (IPEL.EQ.l)  GO  TO  450 

ELASTO-PLASTIC 

CALL  CSIGN(SIG) 

CALL  DMTRX  (SIG,DEPS,C) 

CALL  CSIGN(SIC) 

RETURN 

ELASTIC 

450  CONTINUE  * 

CALL  S Z E R 0 ( C ,  16) 

C  (  1  ,  1  )  =  A  2 


(  END  ) 


c 


I 


C  (  2  ,  1  )  =  B  2 
C( 1 ,2)=B2 
C(2,2)=A2 
C ( 3 , 3 ) =C2 
C(  L , 4 )  =  B2 
C(2,4)=B2 
C ( 4 , 1 )=B2 
C(4,2)=B2 
C(4,4)=A2 


I 

I 

1 

r> 

£ 

i; 

1 

Si 

I 


C 


C 

c 

c 

c 


c 

c 

c 


c 

c 

c 


RETURN 

END 

SUBROUTINE  CUTNX(S) 
DIMENSION  S (  I ) 

s ( 1 )  =  -S(l) 

S(2)  =  -S ( 2  ) 

S ( 3 )  =  -S(  3 ) 


COMPUTE  PRINCIPAL  STRESSES  AND  ANGLES 

PI  =  S( 1 )+S( 2) 

P2  =  S( 1 )-S( 2) 

IF(ABS(P2) .LT. 1 . E-8)  GO  TO  20 
ANGX  -  0.5*ATAN(2.*S(3)/P2) 

GO  TO  40 

20  ANGX  =  0.7854 
40  CONTINUE 

PX  =  0.5*Pl+O.5*P2*COS(2.*ANGX)+S(3)*SIN(2.*ANGX) 

ANGY  =  ANGX+ 1 ,5708 

PY  =  0.5*P1+0.5*P2*C0S(2.*ANGY)+S(3)*SIN(2.*ANGY) 

CHECK  TENSION,  IF  THERE  IS  TENSION,  CUT  OFF 

IF(PX.GT.O.O)  PX  =  0.0 
IF(PY.GT.O.O)  PY  =  0.0 

BACK-TRANSFER  STRESSES  FROM  PRINCIPAL  TO  X-Y  COORDINATE 


C  =  COS(ANCX) 
1  S  =  SIN(ANGX) 

W  C2  =  C*C 

S  2  =  S*S 


v  cs  =  c*s 


non 


RETURN 

END 

SUBROUTINE  PSTRN ( E , EMAX , EMIN  ) 

DIMENSION  E (  1  ) 

C 

£  I  =  E( 1 )  +  E( 2 ) 

E2  =  E(  1 )  —  E (  2  ) 

E3  =  0 . 5*E( 3 ) 

IF(ABS(E2) .LT.I.E-8)  GO  TO  20 
ANGX  =  0.5*ATAN(2.*E3/E2) 

GO  TO  40 

20  ANGX  =  0.7854 
40  CONTINUE 

EX  =  0.5*E1+0.5*E2*C0S(2.*ANGX)+E3*SIN(2.*ANGX) 
ANGY  =  ANCX+1.5708 

EY  =  0.5*E1+0.5*E2*COS(2.*ANGY)+E3*SIN(2.*ANCY) 
IF(EX.GT.EY)  GO  TO  60 
C  EMAX  =  EY 

EMIN  =  EX 
GO  TO  80 
60  EMAX  =  EX 
EMIN  =  EY 
80  CONTINUE 
RETURN 
END 

SUBROUTINE  DMTRX  ( TAU , DEPS , DP ) 

FORMS  THE  ELASTO-PLASTIC  MATERIAL  MATRIX 


C 

C 

C 


COMMON  /MATPR/  PAR( 7 ) , A2 , B2 , C2 

DIMENSION  TAU(4) ,DEPS(4) , DP ( 4 , 4 ) ,A(4) ,DP1(4) , DA  1 ( 4 ) 


CALL  SZERO( DP , 16) 


DP(1,1) 
DP( 2  ,  1  ) 
DP ( 1,2) 
D  P  (  2  ,  2  ) 
DP( 3 , 3  ) 
DP ( 1,4) 
DP(4,  1  ) 
DP( 2 , 4  ) 
DP(  4  ,  2  ) 
D  P  (  4 , 4  ) 


A  2 
B2 
B2 
A  2 
C  2 
B2 
B  2 
B  2 
B  2 
A  2 


CALL  V ECTA ( T A U  ,  A ) 

0 
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CALL  MLPLY ( DP , DEPS , DP  1 ,4) 

C 

CALL  DOT ( A , DPI , DEI ,4) 

C 

CALL  MLPLY ( DP , A , DA  1 ,4) 

C 

CALL  DOT (A, DAI, XI, 4) 

C 

DLMDA  =  DEI /X 1 

IF(DLMDA.LE.O.O)  GO  TO  250 

DO  200  1=1,4 
DO  200  J-l ,4 

200  DP( I , J )  =  DP(I,J)-DA1(I)*DA1(J)/X1 


250  CONTINUE 

RETURN 

END 

SUBROUTINE  SH00T( STRSL , STRSR , RATIO ) 
DIMENSION  STRSL(4) ,STRSR(4) ,STRSX(4) 


NN  =  10. 

XL  =  0.0 
XR  =  1.0 

CALL  FR00T(XL, XR, STRSL, STRSR, STRSX, RATIO, NN) 


RETURN 

END 

SUBROUTINE  DRFTA ( STRESS  ) 

DIMENSION  STRESS(4) ,STRSL(4) ,STRSR(4) ,STRSX(4) 


NN  =  5 
DX  =  0.1 

CALL  DCOPY(STRSX, STRESS) 
XX  =  1.0 

CALL  FORMF ( STRSX , FX  ) 

C 

IF(FX.LT.O.O)  GO  TO  500 
XR  =  XX 

CALL  DC0PY( STRSR, STRSX) 

K  =  0 

100  XX  =  XX-DX 
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K  =  K+l 

I F( K . GT . 100)  CO  TO  900 
CALL  FCOPY(STRSX .STRESS . XX ) 

CALL  FORMF(STRSX.FX) 
rF(FX.CE.O.O)  CO  TO  100 
XL  =  XX 

CALL  DCOPY (STRSL.STRSX) 

GO  TO  800 

CONTINUE 
XL  =  XX 

CALL  DCOPY (STRSL.STRESS) 

K  =  0 

XX  =  XX+DX 
K  =  K  +  l 

IF(K.GT.IOO)  GO  TO  900 
CALL  FCOPY(STRSX,STRESS,XX) 

CALL  FORMF(STRSX.FX) 

IF(FX.LE.O.O)  GO  TO  700 
XR  -  XX 

CALL  DCOPY (STRSR.STRSX) 

CALL  FROOT( XL, XR , STRSL , STRSR , STRESS, R. NN) 

RETURN 

WRITE(6,*)  "  WRONG  DRIFT  CORRECTION  IN  DRFT-A  ".XR.XX.FX.K 

STOP 

END 

SUBROUTINE  DCOPY(A.B) 

DIMENSION  A(4),B(4) 

DO  100  1-1,4 
A ( I )  -  B( I  ) 

RETURN 

END 

SUBROUTINE  ADDST( A , B , R , C ) 

DIMENSION  A(4),B(4) ,C(4) 

DO  100  1-1,4 
A ( I )  =  B(I)+R*C(I) 

RETURN 

END 

SUBROUTINE  FORMF(S.F) 

COMMON  /MATPR/  PA R ( 2 ) , A  1 , A 2 , A3 , A4 , X 
DIMENSION  *S(4) 

CALL  I N  V  R  S ( S , P.Q.RT.T) 

F  =  <)-  (  (  A  2  +  A  3  *  P  )  *  *  A  l  +  A  4  )  *  R  T 
r  F ( A  I  . EQ.O.O)  AP  =  1.0 
I  F(  A  l  .F.Q.0.5)  AP  =  SQRT(A2  +  A3*P) 


o  o 


I F ( A  1 .HQ. 1 .0)  AP  =  A  2  +  A  3  *  P 
F  =  Q- ( A  P+A4  )  *  RT 


RETURN 

END 

C 

SUBROUTINE  I N VRS ( S , P , Q , RT , T ) 

COMMON  /MATPR/  PAR( 2 ) , A 1 , A2 , A 3 , A4  ,  X 
DIMENSION  S ( 4 ) 

C 

P  =  (S(l)+S(2)+S(4))/3. 

S 1 2  =  S( 1 ) -S ( 2  ) 

S23  =  S(2)-S(4) 

S3 1  =  S(4)-S(l) 

C 

Q  =  SQRT( . 5*( S12*S12+S23*S23+S31*S31 )+3 . *S( 3)*S( 3) ) 
C 

IF(Q.GT. 1 .OE-15)  GO  TO  10 
T  -  0.0 
RT  *  1.0 
RETURN 
10  CONTINUE 
C 

SX  *  S(l)-P 
SY  »  S ( 2 ) -P 
SZ  *  S ( 4 )-P 

Z3  *  SX*SY*SZ-SZ*S(3)*S(3) 

ST3  =  -n.S^ZO/CQ^Q^Q) 

IF( ST3 . GT . 1 . 0 )  ST3  *  1.0 
IF(ST3 . LT.-l .0)  ST3  »  -1.0 

C 

T  *  ( AS  IN ( ST3  ) ) /3 . 0 
C 

A  «  1.0-X*X 
B  -  2 . 0*X-1 . 0 
C  *  5.0*X*X-4.0*X 
SQ3  *  SQRT( 3 . ) 

CS  -  SQ3*C0S (T)+SIN(T) 

TS  »  2  .  +COS  (2.’!‘T)+SQ3!!'SIN(2.!!,T) 

BS  =  SQRT( A*TS+C ) 

RN  =  A*CS+B*BS 
RD  =  A*TS+B*B 
C 

RT  =  RN/RD 

C 

RETURN 

END 

C. 

SUBROUTINE  VF.CTA(S.A) 

COMMON  /MATPR/  PAR( 2  )  , A  1  , A2  ,  A3 , A4 , X 
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DIMENSION  S(4),A(4) 

derivatives  OF  YIELD  FUNCTION  W.R.T.  STRESS 

CALL  INVRS(S,P,Q,RT,T) 

Cl  .  COS(T) 

C2  •  COS( 2 .  *T) 

C3  *  COS( 3 .  *T ) 

51  =  SIN (T) 

52  *  SIM(2.*T) 

SQ3  *  SQRT ( 3 . ) 

FP  *  -A1*A3*RT/((A2+A3*P)**( 1 .-AI)) 
IF(AI.EQ.O.O)  FP  »  0.0 

IF(Al.EQ.O.S)  FP  »  -0.5*A3*RT/SQRT(A2+A3*P) 
IF( Al .EQ. 1 .0)  FP  -  -A3*RT 

I F(Q . GE . 1 . OE- 1 5 )  GO  TO  100 
A ( 1 )  *  FP/3 . 

A ( 2 )  -  FP/3. 

A ( 3 )  a  0.0 

A (4 )  .  FP/3. 

RETURN 

100  CONTINUE 
C 

FQ  =  1.0 
C 

AA  a  1.0-X*X 
BB  a  2 . *X-1 . 0 
CC  a  5 . *X*X-4 . *X 
TS  »  2 . +C2+SQ3*S2 
BS  a  SQRT( AA*TS+CC) 

RD  =  AA*TS+BB*B3 
CSC  -  SQ3*C2-S2 

RNT  a  AA*(C1-SQ3*S1)+AA*BB*CSC/BS 
RDT  -  2.*AA*CSC 
RWT  =  (RNT-RT*RDT)/RD 
3  FT  =  -((A2+A3*P)**A1+A4)*RWT 
IF(Al.EQ.O.O)  AP  =  1.0 
I F ( A  1 .EQ.0.5)  AP  =  SQRT( A2  +  A3*P) 
IF(Al.EQ.l.O)  AP  =  A 2  +  A 3 ^ P 
FT  =  -(AP+A4)*RWT 

Q2  =  Q*Q 
Q3  =  Q  *  Q  2 
Q4  a  Q*Q3 
SX  =  S( 1 )-P 
SY  =  S ( 2 ) -P 
SZ  =  S( 4  )  -P 


1 


a 

s 
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SXY  =  SX*S  Y 
SXZ  =  SX*SZ 
SYZ  =  SY*SZ 
TXY  =  S(3)*S(3) 

C 

Z3  =  SX*SY*SZ-SZ*S(3)*S(3) 
C 

ZX  -  S Y*SZ+Q2/9 . 

ZY  -  SX*SZ+Q2/9. 

ZXY  -  -2 . *SZ*S ( 3 ) 

ZZ  *  SX*SY-TXY+Q2/9. 

C 

FI  =  FP/3 . 

F2  =  FQ+13.5*Z3*FT/(Q4*C3) 

FN 2  =  1.5*F2/Q 

F3  =  -4 . 5*FT/ ( Q3*C3 ) 

C 

A (  1 )  =  F1+FN2*SX+F3*ZX 
A ( 2 )  =  F1+FN2*SY+F3*ZY 
A ( 3 )  =  2.*FN2*S(3)+F3*ZXY 
A ( 4  )  =  F1  +  FN2*SZ+F3*ZZ 
C 

RETURN 

END 

C 

SUBROUTINE  MLPLY(C , A , B , N ) 
DIMENSION  C(N,N),A(N),B(N) 
DO  100  I«1,N 
B ( I )  =  0.0 
DO  100  J= 1 , N 

100  B ( I )  =  B(I)+C(I, J)*A(J) 
RETURN 
END 
C 

SUBROUTINE  DOT( X , Y , FF , N ) 
DIMENSION  X(N),Y(N) 

FF  =  0.0 
DO  100  1  =  1, N 
100  FF  =  FF+X ( I ) * Y( I ) 

RETURN 

END 


SUBROUTINE  SZERO(A.N) 
DIMENSION  A ( N  ) 

DO  100  1  =  1, N 
100  A(I)  =  0.0 
RETURN 
END 
C 

SUBROUTINE  FCOP Y ( A , B , FAC ) 
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DIMENSION  A(4),B(4) 

DO  100  1=1,4 
A (  I  )  =  FAC*B(I) 

RETURN 

END 


SUBROUTINE  FROOT( XXL , XX R , STRSL , STRSR , STRSX , R , NN ) 

DIMENSION  STRSL(4) ,STRSR(4) ,STRSX(4) 

XL  =  XXL 
XR  =  XXR 

DO  100  1*1, NN 

XX  *  XL+( XR-XL)*0 . 5 
DO  50  J-1,4 

STRSX ( J )  *  STRSL(J)+(XX-XXL)*(STRSR( J)-STRSL(J) )/(XXR-XXL) 
CALL  FORMF(STRSX.FX) 


c 

i 

1 

IF(FX.GT.O.O)  GO  TO  60 

XL  =  XX 

GO  TO  100 

1 

60  CONTINUE 

1 

XR  *  XX 

y 

C 

X 

100  CONTINUE 

C 

3 

•s 

C 

L-fl 

R  =  XX 

C 

■ 

RETURN 

1 

;• 

END 

X 

C 

a 

SUBROUTINE  CSIGN(A) 

DIMENSION  A ( 4 ) 

DO  100  1*1,4 

rf 

* 

*• 

100  A ( I )  =  -A ( I ) 

RETURN 

®j 

*\ 

END 

*! 

9 

Si 

■x 
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